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I  INTRODUCTION 


The  multi-purpose  program  described  herein,  "DOC  II,"  has  been 
developed  primarily  to  obtain  geocentric  positions  of  ground-based 
instriumentation  sites  from  observations  made  on  close  earth  satellites. 

The  observations  may  be  in  the  form  of  range,  range  rate,  and/or 
directions  (right  ascension  and  declination,  azimuth  and  elevation). 

Provision  for  weighting  observations  is  included. 

This  program  utilizes  the  analysis  and  much  of  the  programming 
associated  with  the  ephemeris  computation  and  differential  correction 
theory  that  is  described  in  AFCRL  62-892,  Research  in  Geodesy  and 
Gravity,  Com^juter  Programs  for  Orbit  Correction  and  Statioir  Location. 

For  ready  reference  this  portion  of  62-892  is  contained  in  Appendix  A. 

This  original  ephemeris  computation  has  been  modified  to  consider  the 
following  additional  perturbations. 

1.  the  sectorial  and  tesseral  terms  in  the  earth's  gravitational 
potential  (  thru  n  =  m  =  5) 

2.  the  lunar  gravitational  potential 

3.  solar  radiation  pressure 

The  station  locator  portion  of  62-892  was  completely  reworked  and  is 
described  in  the  body  of  this  report.  Further  modifications  made  to  the 
original  program  now  allows  one  to; 

1.  Correct  the  orbital  elements  and  station  positions  simultaneously. 

2.  Simulate  observations  in  the  form  of  punched  card  output.  Using 
this  as  input  allows  one  to  observe  the  effect  that  varying  amounts, 
distribution,  accuracy,  and  types  of  data  has  on  the  end  results. 

3.  Correct  the  six  orbital  elements  only,  applying  from  one  to  nine 
corrections. 

4.  Correct  the  station  positions  only  for  a  number  of  stations  contained 
in  up  to  six  different  datums. 

5.  Generate  orbital  elements  for  each  time  step  specified  by  a  At 
frtpm  input. 
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II  FORMULATION 


A.  General 


1.  Standard  Keplerian  elements  are  obtained  by  inverting: 


T 

o 

= 

Ivl  4-  tj  + 
o 

A 

xn 

= 

e  cos  oj 

A 

yn 

- 

e  sin 

H 

X 

- 

'^a(l-e^)  sin  sin  i 

H 

y 

r 

'^a(l-e^)  cos  n  sin  i 

H 

z 

= 

*^a(l-8^)  cos  i 

2.  Greenwich  sidereal  time  in  degrees  for  January  0.  0  is  selected  internally 
from  a  table  for  the  years  1958  to  1977.  The  present  table  for  6  ^  is: 

(1960)  =  98.67401 

(1961)  =  99.420937 

(19'62)  =  99.  1822167 

(1963)  =  98.943500314 

Greenwich  sidereal  time  at  the  time  of  an  observation  is  obtained  by 
applying  a  mean  rotation  to  GST  of  January  0.  0  and  then  adding  on  the 
equation  of  equinoxes  from  a  table.  In  the  original  ephemeris  com¬ 
putation  (Appendix  A),  the  equation  of  equinoxes  was  not  added. 

3.  The  maximum  size  of  the  matrix  is  24  x  24.  This  allows  for  correcting  the 
b  orbital  elements  and  up  to  6  different  non-zero  datums. 

4.  Observation  sigmas  are  selected  internally  if  none  are  given  from 
input. 

The  program  will  use  the  following  nominal  values: 

10  meters  for  Range  Observations 
10.  0  cps  for  Range  Rate  Observations 
.  00001  radians  for  Optical  Observations 


B.  Observation  Weighting  and  Calculation  of  Standard  Deviation  (or) 
in  Satellite  Position 

1  Preliminaries 


As  noted  in  the  writeup  of  the  Station  Corrector  Portion  (pg  6  ), 
each  observation  leads  to  a  condition  equation  of  the  form 


Q  u  -  Q 
obs  comp 


C  .  Ai 
Ai 


+  C  . „  AZ . 
AZ .  j 
J 


(1) 


Here  Q  just  denotes  some  quantity.  The  actual  quantity  used  for  Q  varies 
with  the  type  of  observation  as  follows: 


Observation  Type 

Q 

Range  rate 

Range 

n/p_‘  £_ 

Azimuth  or  Right  Ascension 

(p.A) 

Elevation  or  Declination 

(p.D) 

The  basis  of  the  entire  differential  correction  method  is  the 
assumption  that 


Q 


obs 


Q 


true 


+  6 


(2) 


where  e  is  a  sample  from  a  distribution  with  zero  mean  and  known  standard 
deviation.  Since  some  observations  are  more  accurate  than  others,  i.  e., 
have  smaller  cr's,  the  condition  equations  are  weighted  by  dividing  Ijy  a  cr  for 
the  error  in  that  obser\ation. 


An  additional  advantage  of  this  weighting,  aside  from  the  obvious 
one  of  being  able  to  take  account  of  variable  observational  accuracy,  is  that 
the  diagonal  elements  of  the  least-squares  matrix  can  be  interpreted  as 

ariances  in  the  computed  corrections  Ai,  AC, . AX,  AY,  AZ.  An 

additional  assumption  is  necessary  here,  namely  that  the  errors  in  different 
observations  arc  independent. 
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The  estimates  of  the  variances  in  the  elements  at  epoch  can 
be  converted  into  estimates  of  the  variances  in  the  computed  x,  y,  z 
coordinates  of  the  satellite. 


Theory 


a)  Variances  for  x,  y,  z  coordinates  of  satellite. 

Formulas  for  converting  Aao ,  AIq  ,  .  .  .  ,  Afig  ^<3  Ax(tj^). 
Ay(t.),  Az(t^)  for  each  observation  time  t^  are  given  in  Reference  2. 

A  standard  technique  then  gives  the  variances  for  the  conversion  Matrix  A. 


Ax 

Ay 

= 

A 

Az 

Aao 

Aio 

ASIq 


A  covariance  Matrix  C  for  [ax,  A  y,  Az]  is  then  related  to  the  covariance 
Matrix  for  [Aao,  Aio. . Af^ol  t>y 


c  =  ada'^ 


b)  Observational  Sigmas 

In  order  to  get  a  o'  for  the  e  in  (2)  one  must  take  account 
of  the  nature  of  the  observed  quantities,  Q.  It  is  easy  to  see  that 


(£  •  p) 

'y£  ■  £_ 

A  (£  .  A) 
A  (£  •  D) 


r  r 
r, 

p  cos  6  A  Q, 
P  A  6, 


Thus  appropriate  sigmas  are 


(£•£) 
\/£*£' 
A  {£-A) 
A  { p  •  D) 
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Additional  Features 


a)  Nominal  values  of  the  sigmas  for  each  station' s  obser¬ 
vations  of  range  rate,  range  and  angles  are  accepted  from  the  station 
data  cards.  If  the  appropriate  columns  of  a  station' s  card  are  zero  the 
program  uses,  for  that  station,  a  set  of  arbitrarily  chosen  values.  When 
an  observation  card  is  read  the  program  checks  to  see  whether  a  sigma 
for  the  observation  is  on  the  card.  If  there  is  such  a  sigma  it  is  the  one 
used.  If  the  appropriate  columns  are  zero  the  nominal  sigma  for  the 
observing  station  is  used. 

b)  The  subroutine  which  forms  the  condition  equations  divides 
them  by  the  appropriate  or  as  determined  in  the  theory  section. 

c)  At  each  observation  time  the  program  saves  on  tape  those 
values  necessary  for  computing  the  matrix  A  mentioned  in  the  theory 
section. 


d)  At  the  conclusion  of  a  run  the  tape  record  mentioned  in 
(c)  is  read,  and  sigmas  for  x,  y  and  z  at  each  observation  time  computed. 

e)  In  order  to  be  assured  of  getting  sigmas  in  x,  y,  and  z  at 
epoch  —  even  when  this  is  not  an  observation  time  —  a  record,  as  in  para¬ 
graph  (c)  is  written  at  the  start  of  the  run,  i.  e.,  at  epoch. 

f)  Simulated  data  is  available  in  punched  card  form.  Format 

is  that  required  for  input  to  the  simulated  run  with  toggles  set  as  noted  in  the 
section  on  input. 


c. 


Station  -  Corrector  Portion 


1  Preliminaries 

Let  3:,  y,  z  be  the  inertial  coordinates  of  the  satellite  at 
some  sidereal  time  6  and  X,  Y,  Z  be  the  earth-fixed  coordinates  of  an 

A  A  A 

observing  station.  The  inertial  coordinates  of  this  station,  X,  Y,  Z, 
are  given  by 

X  =  X  cos  0  -  Y  sin  0 

A 

Y  =  X  sin  0  +  Y  cos  0 

A 

Z  =  Z 

The  station -satellite  vector,  p  is 

p  =  (x  -  X)  i  +  (y  -  Y)j  +  (z  -  Z)k 


(1) 


(2) 


The  tirrie  derivative  of  this  vector,  p  ,  is 

£  =  (X  -  X)j.  +  (y  -  Y)  j_+  (z  -  Z)  k  (3) 

If  we  let  the  earth' s  rotation  rate  be  w  and  differentiate  (1)  we  get 
X  =  (-X  sin  0  -  Y  cos  0  )w 

Y  =  (X  cos  0  -  Y  sin0)a.'  (4) 

A 

Z  =  0 

Using  (1)  and  (4)  to  get  rid  of  the  hat  variables  in  (Z)  and  (3)  gives 


£  " 

(x  -  X 

+  (z 

cos  0  +  Y  sin  0  )  i  +  (y  -  } 

-  Z)k 

C  sin  9  -  Y  cos  0  )  j 

(5) 

£  ~ 

(X  +  [ 

X  sin  0  +  Y  cos  0  )  i 

(t.) 

-  (y  ^ 

[  Y  sin  0  -  X  COS0  ]  w  )  j 

^  z  k 

Thus 


ax 

dE 

■gy  “ 

a£.  _ 
^  - 


-cos  0  i  -  sin  0  J_ 
sin  a  _i  -  cos  0  j_ 

-  k 


Also 

(£_•  £)  =  (x  -  X  cos  0  +  Y  sin  0  )  (x  +  [X  sin  0  +  YcosB]i<j) 

+  (y-Xsin0  -  Y  cos  0 )  (y  +  [  Y  sin  0  -Xcos0]to) 

+  (z  -  Z)  z 

=  X  (-cos  0  X  +  u)  sin  0  X  -  sin  0  y  -  oj  cos  0  y) 

•  +  Y  (sin  0  X  +  u)  cos  0  x  -  cos  0  y  4-  sin  0  y) 

.  +  Z  (-Z) 

+  terms  independent  of  X,  Y,  Z, 

Notice  that 

(£.•£)  =  j.  ^  (£"£)  =  i  dF  =  (range)(range  rate). 

Here 

^  =  -  cos  0  (x  +  w  y)  +  sin  0  (oj  x  -  y  ) 

ax 

^  =  cos  0  (oj  X  -  y )  +  sin  B  (x  +  ui  y) 

dY 

^(R-£)  =  _z 

az 

2  Theory 

For  each  type  of  observation  the  original  progran>  (Appendix  A) 
di’s  eloped  a  condition  equation.  These  were  of  the  following  forms: 


Range  Rate  Observation 


(p„-i)obs  ■ 

Azimuth  or  Right  Ascension  Observation 
(£.-A)obs  - 


=  Ai  +  . .  .  .  +  ^ 

comp  9. 


=  Ai  +  . . .  +  An 

9  i  an 


Elevation  or  Declination  Observation 
(£-D)obs-^£-2) 


=  £J P)  Ai  +  ....+  ^(£-g^  An 

ai  an 


Range  Observation 


n/  (£•  £.) 


obs 


9n/(£-£.)  Ai  4.  ...■+  An 

J--  romn  ^  .  _ 


ai  an 

Here  the  subscripts  "obs"  and  "comp"  denote  "observed"  and  "com¬ 
puted"  respectively.  A  and  D  are  unit  vectors  in  a  plane  perpendicular 
to  pQ^g  perpendicular  to  each  other  (Appendix  A). 

To  modify  these  condition  equations  when  X,  Y  and  Z  are  also 
unknown,  we  must  add  to  the  right  side  the  partials  of  the  relevant  quantity 
with  respect  to  X,  Y,  arid  Z.  We  have  already  computed  a{£'^)  with 
respect  to  X,  Y  and  Z.  In  the  case  of  (£^*D)  or  {£_*A) 


3(£»  D) 

ax 


ax 


Dl 


9  (£•  A)  _  /a  £ 
aY  V9Y 


etc.  and  the  partials  of  £  are  known.  Finally, 
a  V  p  •  p  _  I 


£•£ 

ax 


Z\J  £•  £ 


ax 


2^/ 


£•£ 
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is  a  unit  vector  from  station  to  satellite. 


where  L  =  £  /  'J  £_•  £_ 

X  -  Y.  Z. 

3.  Modifications  To  AFCRL  62-892 


a)  The  first  change  in  the  program  causes  it  to  accept  a  datum 
number  on  each  station  card.  Up  to  six  different  non-zero  datum  numbers 
may  appear  in  the  deck  of  station  cards  for  any  run.  (These  need  not  be 
numbered  in  order  such  as  1,  2,  3.  The  program  reassigns  internal  datum 
numbers  so  that  the  input  datvim  numbers  could  be  12,  24,  268  ate.  )  A  zero 
datum  number  indicates  that  a  station  is  to  be  held  fixed.  All  stations  in 
the  same  datum  are  moved  together. 

The  program  counts  the  number  of  non -zero  datums  present, 
say  n,  and  sets  the  number  of  unknowns  equal  to  6  +  3n. 

b)  The  second  change  is  a  revision  of  the  routine  which  forms 
the  condition  equations.  These  are  enlarged  as  described  in  the  theory 
section.  An  essential  part  of  this  step  is  to  determine  the  datum  number  of 
the  observing  station,  so  as  to  make  the  partials  with  respect  to  X,  Y  and 

Z  refer  to  X,  f  and  Z  of  the  relevant  datum. 

To  make  clear  what  is  meant  here,  suppose  that  there  are 
two  non-zero  datums  numbered  1  and  2.  There  are  twelve  unknowns, 

—  ,  Ai . Ail,  AXi.  AYi,  AZi  .  AXz  ,  AYz  ,  AZz  . 

Each  individual  observation  is  made  by  a  station  in  datum  zero  or  one  or  two. 
If  the  station  is  in  datum  zero  the  coefficients  of  AXj  ,  AYj  , . .  .  ,  AZz  are 
all  zero.  If  the  station  is  in  datum  one  the  coefficients  of  AXz  ,  AYz  and  AZz 
are  zero  but  the  coefficients  of  AXj  ,  AYj  ,  AZi  are  those  we  just  derived. 

c)  A  third  change  in  the  program  consists  of  a  bookkeeping 
chore.  After  a  set  of  datum  shifts  is  determined,  the  stations  in  non-zero 
datums  must  have  their  X,  Y,  Z  coordinates  updated.  This  involves 
rewriting  the  observation  tape. 
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Ill  PROCESSING 


The  general  flow  of  the  program  during  execution  is  : 


1.  Set  up  constants;  read  in  the  first  five  specification  cards. 

2.  Compute,  for  epoch,  the  values  of  inclination,  node,  W  Bar, 
mean  motion,  A  Bar. 


3. 


4. 


5. 


Set  up  to  integrate  ephemeris. 

Write  parameters  used  in  computing  standard  deviations  in 
satellite  position  at  epoch  on  Tape  11. 

Integrate  ephemeris: 

a.  Compute  time  derivatives  of  A  Bar,  H  Bar,  and  XL. 

b.  Compute  perturbative  accelerations  and  relate  to 
orbital  elements. 

c.  Compute  required  derivatives. 

d.  After  each  perigee  passage,  correct  orbit  parameters 

.  for  atmospheric  drag. 

e.  Transfer  current  values  of  A  Bar,  H  Bar,  and  XL  to 
°  ephemeris  buffer. 

a 

f;  Determine  what  to  print  for  output. 

a  *  “ 

•  o  • 

g!"’.  Wnite  ephemeris  buffer  on  Tape  3  whenever  it  is  filled. 
•  •  •  •  •  „ 

Determine  if  Simulation  Run  or  Differential  Correction  Run. 


■If  Simulation  Run 


Compute  and  print  simulated  observations  for  each  station  -  Range, 
Range  Rate,  Right  Ascension /Declination,  Azimuth/Elevation. 


If  Differential  Correction  Run 

1.  Read  station  cards. 

2.  Set  up  least  squares  routine  for  matrix  size. 

3.  For  each  observation  card  perform  the  following: 


4. 


10. 


11. 


a.  Read  an  observation  card. 

b.  Match  station  number  on  observation  card  with 
station  card. 

c.  Check  if  observation  time  is  within  ephemeris  time, 
i.  e.,  between  Tq  and  Tf. 

d.  Compute  L  Bar,  etc. 

e.  Save  observation  data  on  Tape  9. 

When  all  observation  cards  have  been  read  in,  continue 
processing  each  observation; 

a,.  ^  •••Find  observation  time  in  ephemeris. 

’Interpolate  tp  get  parameters  from  ephemeris. 

•  •  •  • 

c..*  ,  Gpmpute  x,Jy,  z,  and  related  parameters. 

•  ♦  •  *  • 

’df  ^',S*ave‘ x,**y,  z,^  x,  y,  z  on  Tape  6. 

'•  •  •  •  .•* 

•  •  •*  •  •  • 

.e.'  *  Wr.it*e  paVameterrs  for  standard  deviation  for  each 

*  *»• 

•^.  obseri/ation  time  on  Tape  11. 

'•••*•*  *►  *  *  ***  • 

•f  -.’Cornpptc  coTrection  equation  coefficients  and  residuals. 

.  • :  *  *  •  V*  ’ 

Upda’te  sum  of  squares  of  residuals  and  normal  equations. 

.  .  .  •  .  r.  *  ■  ’ •'* 

.'SavVmatrix’.AT  and’B  as  determined  by  input  code  to  correct 

•-  •  •  .  .  t  • ' 

both  elem'enfs  and  station  positions,  elements  only,  or  station 

I  • 

position's  'only*.  ; 

•  .  •  »••  •  •  • 

Solve.^normal  equations.  ... 

Compute  ro’ot  m'ean  square  of  residuals;  reset  limit  for 
acceptance  of  residuals. 

Determine  whether  or  not  to  do  another  pass. 

Apply  correction  to  elements. 

Apply  correction  to  station  position. 

Determine  whether  or  not  to  do  another  correction. 
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12.  Compute  the  sigmas  in  x,  y,  and  z  (position  of  observer). 
1 3  Output 

14.  Exit 
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B. 


Error  Indicators 


1 .  Subroutine  Error 

This  is  a  general  error  exit  from  any  subroutine  and  causes 
the  execution  of  the  program  to  stop.  Location  SUBER  1  contains 
the  address  within  the  subroutine  from  which  the  exit  occurred. 

2.  Altitude  Below  50000  Meters 

Program  exits.  The  internal  table  of  altitudes  has  a  lover 
limit  of  50000  meters  and  an  upper  limit  of  900000  meters. 

3.  Kepler  '  s  Equation  Not  Converging  For  "  e" 

Program  exits.  This  error  occurs  as  the  value  of  eccentricity 
approaches  1.  0. 

4.  Error  in  Range  Kutta  Routine 
Program  exits. 

5.  Number  of  Unknowns  Exceeds  Number  of  Observations 

Program  exits.  This  error  exit  is  executed  when  the  program 
does  not  have  enough  good  observations,  i.  e.,  observations  that  pass 
the  maximum  residual  test. 

6.  Error  in  Testing  Time  Points 

Program  exits.  The  count  of  the  number  of  records  cn  the  ephemeris 
tape  (Tape  3)  is  held  in  location  NTAPE3.  The  value  in  NTAPE3  is 
tested  before  the  program  tries  to  find  the  observation  time  in  the 
ephemeris.  If  NTAPE3  S  0  at  this  time,  this  error  exit  occurs. 

7.  If  the  value  for  XNY  in  the  XYZSB  Subroutine  is  zero,  the  program 
will  exit. 

8.  Observation  Out  of  Time  Range 

This  is  printed  when  the  observation  time  is  not  within  T^  to  T^ . 
Program  continues. 
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Q 


Station  XXX  Not  Found 


This  is  printed  out  when  the  program  is  unable  to  match  the 
station  number  on  the  observation  card  with  the  station  number  on 
the  station  card. 
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I 

I 


IV  INPUT 


Specification  Cards 

For  all  runs  the  program  requires  5  specification  cards. 

Cards  1  and  2  —  used  for  headings  of  output  pages. 

Card  3  —  tells  program  to  start  at  time  0  minutes  and  in  time 
steps  of  At,  compute  the  ephemeris  for  t£  minutes. 

This  card  gives  diameter  (m.  )  and  mass  (kg.  )  of 
■  .  satellite. 

Card  4  —  This  card  inputs  the  elements.  A  minus  sign  in  column 
.  ,  ••  •  1  .indicates  that  standard  Keplerian  elements  are  being 

.  •  .  .used.  Otherwise  the  elements  are  taken  as  those  of 

.  •  ;  -Refe'rence  1. 

,  *  *  ♦  • 

.Card.  5^  — .  Information  given  on  this  card  controls  the  type  of 
•  _•  _  execution.  However,  for  all  runs,  the  following  columns 

•  •  ..  .'are  cornmon : 

t 

• .  ■  Col.  1  has  code  for  printed  output  —  Code  of  1  prints 

sub'-sa.tellite  positions;  Code  of  2  prints  x,y,z,x,  y,z; 
Code  of  3- prints  both;  Code  of  0  will  suppress  this 
,  I  -printing. 

^  _  Ep.och  day  given  must  correspond  to  that  of  Keplerian 

.'  elements.'  Restart  day  must  be  equal  to  or  later  than 
tf  from  epoch. 

•  •  Col.  21  must  be  0. 

Year  of  epoch  is  based  on  1958  =  01. 

Simulation  —  Code  0  in  column  19. 

Differential  Correction 


Card  5  Col.  20  tells  program  how  many  times  to 
repeat  correction. 


Col.  38  is  coded  1  when  user  wishes  to  correct  both 
the  elements  and  station  positions.  (Such  stations 
must  have  non-zero  datum. ) 

Col.  39  is  coded  1  when  user  wishes  to  correct  the 
station  positions  only. 

Col.  40  is  coded  1  when  user  wishes  to  correct  the 
orbital  elements  only. 

The  maximum  limits  for  the  residuals  are  left  to 
the  descretion  of  the  user,  as  are  the  sigmas. 

2.  Observation  Cards 

It  is  preferable  that  observations  be  ordered  by  time.  This  shortens 
the  running  time  by  eliminating  rewind  orders. 

A  card  following  the  last  observation  card  must  have  "END"  punched 
in  Cols.  1  -3. 

3.  Station  Cards 

The  station  number  must  agree  in  Cols.  1-4  to  the  station  number 
on  the  observation  card  in  Cols.  11-14. 

The  sigmas  that  may  be  put  in  on  the  station  cards  are  sigmas 
associated  with  the  observations,  not  with  station  position. 
Observational  sigmas  on  the  Observation  Cards  will  take 
precedence  over  those  on  the  Station  Cards.  Also  if  no  sigmas 
are  given  on  the  Station  Card,  nominal  values  will  be  used  (ASIG). 

4.  Options  By  Means  Of  Toggle  Settings 

The  program  user  has  options  available  to  him  by  requesting 
certain  toggles  to  be  set  manually  by  the  computer  operator  at 
run  time.  The  request  is  specified  on  the  Request  Card  and 
on  a  card  inserted  in  the  data  deck  immediately  following  the 
■lob  Card,  punched  as  shown  below. 

Col.  Col. 

17  25 

HLT  PLEASE  PUT  ON  TOGGLES  X,  X,  etc. 

The  HLT  card  causes  the  message  to  be  printed  on  the  flexo  when 
the  run  starts. 
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Toggles  30,  31,  32  and  33  are  on  for  generating  simulated 
observations  on  punched  cards  in  ANNA  format.  Any  number 
of  these  may  be  specified  during  a  run  for  the  following: 

30  for  Azimuth  and  Elevation, 

31  for  Right  Ascension  and  Declination, 

32  for  Range, 

33  for  Range  Rate. 

Toggle  35  on  will  cause  progi-am  to  print  out  Keplerian 
elements  for  each  time  step. 


INPUT  FORMAT  FOR  A  SIMULATION  RUN 


May  be  run  wifh  or  wifhour  staHon  car^. 

Without  itation  cardi  output  on  print  option. 

With  station  cords  output  includes  look  angles. 


CARD  1 

Col. 


LINE  1  -  HEADING  FOR  OUTPUT  PAGES 

1-72  ! 


CARD  2 


Usl 


LINE  2  -  HEADING  FOR  OUTPUT  PAGES 

1-72  I 


CARD  3 

Col . 


CARD  4 

Col. 


± 


1-12 

13-24 

25-36 

37-48 

49-60 


4- 

0 

0 

0 

0 

( 

0 

0 

0 

+ 

0 

_J 

_ 

J 

_ 1 

AT  (minutes) 

Minutes  from  Epoch  to  Final  Time 
Di  ometer  of  Sate  1 1  i  te  (meters ) 

Mass  of  Satellite  (kilograms) 


Axis  (nautical  miles  ) 

Eccentricity 
Inclination  (degrees  ) 

Mean  Anomaly  (degrees  ) 

Arg.  of  Perigee  (degrees  1 
Right  ascension  of  node  (degrees ) 


CARDS 


Col.  1 

7-10 

11-18 

19-21 

25-28 

29-37 

41-42 


Print  Option:  1  gives  time,  p ,  X/  h;  2  gives  x,  y,z,  x,y,x;  3  gives  both 
Epoch  Day 

j  Minutes  from  Epoch  Day  to  Epoch 


Restart  Day 


Minutes  from  Restart  Day  to  Restart  Time 


Year  (1963  =  06) 


STATION  DATA 


sta”' 

LATITUDE  (F8.5) 

LONGITUDE  (F4.5) 

Alt.  met«n(r6.( 

T - 

5 

13 

72  ^  27 

Col. 


CARD 


fZO 


OPTION 

T 


4  a* 


OPTION 


4b* 


INPUT  FORMAT  FOR  SPFCIFICATION  CARDS  PROGRAM 

Differential  Correction 


{EH 


Heading  for  Output 


Line  1 


^  Heading  (Line  2  ) 


-  Use  if 


1-12 


l25-3d 

37^ 


U9-6Q 


^Sl-7i 


+  0  0000000  +  00 

only  Keplerian.  elements  ore  oval 

- 

AT  (minutes) 

Time  from  Epoch  to  Final  Time  (minutes) 
Diameter  of  Vehicle  (meters) 

Mass  of  Vehicle  (kilograms) 
lable;  code  with  a  Minus  (-)  in  Col.  1. 
Axis  (nautical  miles ) 

Eccentricity 
Inclination  (degrees) 

Mean  Anomaly  (degrees) 

Arg.  of  Perigee  (degrees) 

Rt  Asc  of  Node  (degrees) 


Use  if  the  following  volues  are  supplies  as  input;  otherwise,  see  4a. 

L„  (radians  ) 


1- 


13-24 


l25-3d 


t37-4d 


\i2zia 


^i-7i 


■o 

Axn 


Ayn 

Hx  Earth  radii 

Hy 

Hz 


PW 


RL 


mi 


U5-2$ 


&9-3^ 


&8 


1-6 


7-iq 


HO 


HI -43 


H3-4a 


mi 


mi 


mi 


mi 


’Formot  (ixxxxxxxxixx) 


pbza 


Blank  for  differential  correction;  0  (zero)  for  simulation 
I _ j  Number  of  times  to  repeat  correction 


X,  y,  z;  3  for  both) 


Print  Option  (1  for  Time,  ,  ht;  2  for  Time,  x,  y, 

Epoch  (Doy  of  Yeor;  integer) 

Time:  from  beginning  of  Epoch  Day  to  Epoch  -  minutes] 


I  Siqmo  1 

_  Restort  Time  (day  of  year  ) 

I  Restart  Time  (minutes  ) 


Code  1  to  correct  both  elements  and  station  positions.  Use  1  of  3  only 
Code  1  to  correct  station  positions  only 
Code  1  to  correct  orbitol  elements  only 

^  Y«qr  -  1^8  =  0);  1959  =  02;  1960  =  03;  1961  =  04;  1962  =  05;  1963 
Max.  for  arsgle  and  range  residuals 


06;  etc 


Sigma  2 
Sigma  3 
Sigma  4 
Sigma  5 
Sigma  6 
Sigma  7 
Sigma  8 
Slomo 


Max.  for 


rate  reslduoli 
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Input  Format  for  OPTICAL  Observations 


t  for  RANGE  ObsarvaHom 


V  COMPILATION  PROCEDURE 


The  program  must  be  compiled  on  the  Philco  "  2000"  under  the 
system  called  "Altac  2".  This  system  requires  that  all  tape  units 
used  he  specified  according  to  their  use  in  an  "lounits"  statement. 

Decimal  Input  Tapes  are  LTO  and  LTIO 
Intermediate  Binary  Tapes  are  LT3,  LT6,  LT9i  LTll, 

LTi3,  LT14,  and  LT15 
Decimal  Output  Tape  is  LT5,  Data  Select  0 
Punched  Card  Output  is  LT13,  Data  Select  10 

The  program  uses  approximately  100  RPL  block.  Com.pilation 
time  is  about  20  minutes.  The  source  deck  consists  of  approximately 
5000  cards  (2  1/2  boxes). 
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VI  EXECUTION  OF  DATA  RUN 


Col.  Col. 

17  25 

JOB  XXX  {Identify  run) 

REWIND  0,  3.  6,  9,  10,  1  1,  13 

RPL  1,  DATA,  GO 

TAPE  0 

For  all  runs,  insert  5  specification  or  control  cards  here.  For 
differential  correction  runs,  the  5  specification  cards  are  followed  by  the 
observation  cards.  The  last  observation  card  must  be  followed  by  a  card 
with  "  END”  in  Cols.  1-3. 

END DATA 
REWIND  0 

IMP 

TAPE  10 

.Station  cards  are  inserted  here.  The  run  must  have  a  card  with  "END” 
in  Cols.  1-3  before  the  following: 

ENDDATA 
REWIND  10 

JPL  4,  XXXX,  GO  (ID  of  program) 

TAPE  UNITS  Requiring  Write  Rings 

1 .  Input 

TAPE  0  5  specification  cards  and  observation  cards. 

TAPE  10  station  cards 

2 .  Output 

TAPE  5  printed  output 

TAPE  13  punched  cards  using  data  select  10  when  making 
a  simulation  run. 
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3.  Binary 

TAPE  3  saves  time  and  sub-satellite  positions 
TAPE  6  saves  time,  x,  y,  z,  x,  y,  z. 

TAPE  9  saves  observations  after  processing 
TAPE  11  saves  data  used  in  computing  sigmas 

TAPE  14  saves  data  used  in  computing  the  corrected  latitude, 

longitude,  and  height  of  the  observing  station 
(spheroid  specified). 

TAPE  15  saves  elements  at  every  time  step  if  Toggle  switch 
35  is  on. 
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VII  OUTPUT 


Printed  Output: 

1.  Input  data  from  the  5  specification  cards. 

2.  Lq,  Ayjj,  Hjj.,  Hy,  if  input  is  in  form  of  Keplerian 

elements. 

3.  Time  and  satellite  position  in  latitude,  longitude,  and 
altitude  above  a  specified  reference  spheroid  for  each 
integration  step.  This  is  available  with  a  print  option  of 
1  or  3. 

4.  Time  and  inertial  position  and  velocity  (x,  y ,  z,  x,  y,  z)  of  satellite 
for  each  integration  step.  This  is  available  with  a  print 
option  of  2  or  3. 

5.  Input  data  from  station  cards. 

6.  Input  data  from  observation  cards. 

7.  Station  number,  time,  and  residual  for  each  observation. 

8.  Root -mean -square  of  the  non-rejected  residuals  (SUM  and 
SUM2)  and  the  corrections  to  the  orbital  parameters  (DELTA 
A/A,  DELTA  AXN,  DELTA  AYN,  DELTA  L^,  DELTA  NODE, 
DELTA  I).  The  SUM2  column  contains  range  rate  residuals. 

9.  Suggested  changes  in  coordinates  of  datum  in  earth-fixed 
coordinates  (DELTA  X,  DELTA  Y,  and  DELTA  Z). 

10.  The  differentially  corrected  Keplerian  elements,  differentially 

corrected  L^.  Ay^^.  Hy,  and  the  corrected  x, 

y,  z,  X,  y,  z  at  epoch. 

11.  New  positions  for  stations  in  non-zero  datums,  station  number, 
latitude,  longitude,  elevation,  and  earth  fixed  rectangular 
coordinates  (x,  y,  z)  of  station.  Latitude,  longitude  and  elevation 
are  referenced  to  the  spheroid  whose  parameters  are  specified 
in  the  Table  of  Program  Constants. 


12.  The  standard  deviation  (sigma)  for  DELTA  A/A,  DELTA 
AXN.  DELTA  AYN.  DELTA  L^,  DELTA  NODE,  DELTA  I 
at  epoch. 

13.  The  standard  deviation  (sigma)  in  the  observation  station 
position  (SIGMA  X,  SIGMA  Y,  and  SIGMA  Z). 

14.  Time  and  the  satellite  position  (x,y,z)  with  the  associated 
standard  deviation  are  given  at  epoch  and  for  each  observation 
time. 


B .  Punched  Card  Output 

An  optional  feature  of  DOC  II  will  produce  observation  cards  punched 
in  correct  format  for  use  as  input  in  the  differential  correction  portion  of 
the  program. 

These  cards  can  be  generated  during  a  simulation  run  by  toggle 
settings  on  the  console.  The  settings  are  made  manually  by  the  computer 
operator  as  specified  by  the  program  user  on  the  Computer  Request  Card, 
and  by  the  insertion  of  a  card  in  the  run  deck,  immediately  following  the 
job  card,  as  follows; 

(Col.  17)  HLT  (Col.  25)  PUT  ON  TOGGLES  X,X,  ETC. 

This  card  will  be  printed  out  on  the  flexo-writer  at  run  time  for  instruc¬ 
tion  to  the  operator. 


Set  Toggle 
Set  Toggle 
Set  Toggle 
Set  Toggle 


30  for  azimuth  and  elevation  observations 

31  for  right  ascension  and  declination  observations 

32  for  range  observations 

33  for  range  rate  observations 


28 


F1.0W  CHART  OF  SUBROUTINES 


I 


I  •  • 


Jf — 


^  itih  y  ri  •  I  i  ' 


'1 


‘'n 

w 


N  V  I 


I 

i 


\ 


^t.):j;ff-'cQ  *  I 

,  ??A-|0  *  A(  ,.  , 

iSi'i')-  o.  o  I 


Col  x=  vq 
•*^A-oc C/o  ,  ■'■ 


T 

I 


IPc>  4 

,^T  -a 

;  <5  'I-', 


X-  ? 


.f 
«(-)  - 

! 

_ jr 


(5P/?®f5-  =  '■  j  r  i '  s'O' 
X  S^of'r,  '.“p;  ' 
*  <3  L  ^  *.  Pf  ^  ,>  _■  I 


«■  ■/ 


I 

3  V 

-pr-,  _£^,p^ 

<?(.)  ,  /!,.•) 

■cr(i  ^-0.0 

I  '  ' 


- n 

.  -1-.  t-. 

crw-- 

TC,vi|P  )♦  £ 

1 


29 


'~r^  H  ^ 


^  u  b  »"  o  ij.  1 1  ; 


6  £  L E. 


ir<i-ri  a  ' .  j.  = 

Ai,p.^  (  k:,  T't 
^  S.'A  '-r. 


t<=  i,  t 

J  -  '■  ^ 


1.0  S-t  e  -  A  ■,  '31  •'•  A  3  '  ; 

ALf^A  = 

l.-i  i.  f;  -i  .  iScrq  ,  „  ;j,N 

Ulpa  (  =  , 

,  1 1  0  e  -  4  ■)  a  t  r  A  ^  if  j'. 

^AlP^A  (**,4^  ■'■ 

.  ;  1-  1  i  -  i.  ■,  .?  T  T  A  ^  ^  4\ 

,A  lF  A  (  S',  i-)  O 

.4- OS’  E-  t.  ;  ;3Er4  v' 

Alfa  (£'^3'^  « 

A  L  F  A  i  V  14  L,  ^ 

.oLos.-U\  'ri-A^ri 

.  Oo;S'£-io) 

X  -  ^ 

■^S'  1-  i. 

o'-  o  £'  i 

■  u  ^■'  ” 

,  ^  '  i> 

.  3  ,-  ;  - 

i  .,, v^utr-!. 


:  -  1. 


' 

Z.r'  -= 

W  -00  ^  ^^  .  ; 

■  sr-.  c  • 

J 

_  Y  S  ^  Ilf  C*^  *■% 

'.  t"'  ..' 

y  =  -  -V ' )  4,  s"  T- 

W  ^1.]  ^  CT 

i»i 

J 

•1 

M 

i  '  X  ^ 

■  C?  M  LI  =  !.  o 
'  ^  S  Q  I 


T'T  r  Ti 


-ii.  z:/-sc9~ 

P  (!,■»->  =  -  2.  -K  X 


;  *  ^  '*’sQ 

i  C  -  C  OS 


r  ;  a-TA'J  P  V,—  !•') 


A  ) 


I 


30 


0ess€L 


I 


X><Sf  X.-- 

Q  =  .Q(0-i-O 


“Besr  i.(:r+i.)=  6Ei-ri.(l) 
xv« 

E&x-i  (x-i) 


U  f-  I-  5  M 


F  F 


;GOBf>= 


,  X _ 

ifJlTI  ALl  ZC  I 

/)  ?  E  O  S  I  ij 

'  •S>iJfe5s>i>Ti  y  i _ I 

.  -..xx._ 

^COMPu-rr:  ') 

A-p£»TU^  AJ>oT^^  A-poT-^  I 
,AJ>p€U 
a#?HO=  SqiVT* 

x)  ■»  ]| 

...  _  -'j 

_  _^vJST4,^ 


o  liE ,  I  \ 

.y.'i'Ji.T  t  :  ' 

1>T  (i.)  ■  /?N<vrjT(4^^ 

■sf-o  :)Ti  0,  £yo 

EVOO,  ^y  l,o-r  i?S0}i^ 

(IfDoTj^  '^DcTAj 
a  -rxNl  I  -R  bT  V  M 
V  5oT  o ,  V  Dot  R  i 

’  j 

IjBTv-v/ 

■^UBTv.  "VDJTv*'  i 


- H 


T  ■ 

(3  / 


Co  M  p  u  T  I;  ; 

jTe»?Ms(r')  r  =  1,  6 


o 


F”  OSS 


(A 

J  _ 


Vo  •  :,  (• 

7  'p^■^t'.’')  -•  ■’■'"“HK-yDiiij 
7'1'T~4  'Vs-: '.E  *  i]  =  ^ 

V _  '  J 


1 


fco  M  "  €  •• 

TTC  £  1  Du  P  !., 

j  Tr7?M£  CtSTt-wT  *1.\ 

Ks  I-,*® 

!t£r  His  (K)t  Te-?>TS  ('r)/<7 

Te(?MS  (lj-tcvT-m) 

J - 

C-^l-L  'X 

5trjr  \ 

G-CT  I 
»VPC / vfo' 


ICoMPuTG  •. 
jpifii  DH  A  u, 


.  o\/ 


(54>nJ  ' 

jASlGri.  ^3^  4A 
I _ B  t;  HO 


.  C  \ 

■sr-T.-  To  ' 
&i- 

INDC  «  ,  T  P 


i 


^CVSC  L»&«T 

3  0^i 


\ 


oc 


r  - 

(OOM  Ol,TC 

Tttr-MC^') 

(.iT.'y  'iT-T-Y  ■‘'■I’l 

,APP>-T  wt'A-TT  (9»>J 


0o^1  PwT- e, : 

TERMi(r)^  (i-*A  ^ryx)| 

I 

i  Aud  PppL^  u/ciftHT 

f 


X 


'  3>o»/ 1 
As  iGrl  (f)  •*■ 
T^i^Ho _ 

(b 


37 


rout,  I  »■'  c- 


"f^  A  Kirk. 


■D<p  x-.i^B 

,\S«'iX(l'\-Cl 


^suex(<^j  = 
“I?  k1  Cr  P 


■’c>n,<d'r't. 
Aup  ri  A 
‘J»x1 

ItUTA 
t*»  Y^iVci 


jASL\YT  =  Co5  (A  »>/=»«  ^)  }  *  Aia^r 

ASnyT=  £i  n)(’Ai.p«A);  sphA  =  as.m(’’(0 
;xi.sw  ZH  =si  wO«LTfl;ij  sysL  -■  xi-suZH 
|d^h  ZT -Cos(ii!^TAy,C'iPii‘-  -  ' 

jxt  SmXW  •(J/SH  ZT  ■„  ■*('-'•) 

Ixi- 1  ‘-I  Y  H  •  ( iw  X  Y  *  ‘-iZ~) 

bit^^(-r-.  xlSli  Z.H  ¥  (- ^^‘■1  <~ ) 

J>SuyT  -  XLSH  zw  ■»,  A  ^uyT 

j£S,^f  J>X'‘  -S/WYH  )  i.SuSY-'ZaSn  » 
IsSueZ  '  £<*/PH  (■} 
j55n%Y'  -  ZS  U'9  2  ^  £Sw6a 
fSiw  ax»  *f  S'‘-/3  y 

lS5u3Z.  -COS  HH 

iZ'jwfi')  ■.  siua2,<  esiiay 

jii-./jx  »  -ssunz^^  est-iay 


Co ’•A  flWTIS 


'  -  "  X(:  ,  r  -  5,n/ AupMA 

• 

'-  •  -  L  *  S  V  ; 

=x.x.  ;  £ 

^  '  9'  ,  ^  .  j  ■.  ^ 

^  '■  vY--  x„'  •=  ASviJA 

^  5,  i- i  :  ft  ^,^1  jX/ji^OA 
‘^'^PEu  =  3>S.  i  f  ' 

^'5;-  5  ,v,  t  A.'  A  i 


X  L  5ua  X  (I) 

ASm4XCz) 

J>  ana  xtx)  • 


-l^iTxTei  _ 
P4>  i'.  L7a 

A  Su.  x”  (x  ^: 
o  0 


I  ASi,  'Vx{’’)  s-CApr  fc. .c'S%iiW'^7 
»  fiC'U  5  2**0X»i  .yS^R  «W*J" 

’ASwiXp'J,  ^  '■(?cpTo} 

N  a.  *  3 


S<u  h>  f  rj.  tj  t 


>1  - 


I 


y 

SAt-L. 


>, 


'  U  L 

M  a.  =  Co?.  C" '5- at'  -a  i  _o  - 1 

•U  3  •  5x  M  c  (_s  t  AT  ^ 

\ 

V  I  -  CobF '5M.aT)  TAOb  '^[S'^LOV/ 
Vi=  :os •  at;  *  S- N  -  ;5  M  -J 
'^z-  sx>o  T  (s 


.SsU/AVl  ■*•’-' 

XM»  .oi  2-3  II  S' i~l  B 
.  ^O.  33  i3  i  T?  / 


_ 


s_*  O  ''I  * 

-  0.O  S  *  i.  AT ^  C  o  C  s  -  ^ 

N.  «'  ' 


X3b^:-SIMF(5LOT)^(io5,(^S1.0N<.  TV^I  TSI'JFiSAO-.  t  /Z;  *  J-OS  ‘■fS-AT  <  /3 

lis  1.  O  «  ~  5I  *  CoS  (A (C:.  A'^'ne  Vi  +  CO  j *■  st-i>v/'  K^'oi  fC-  ~  ^'fi- 

>  i.  a  :  y 

3>i.O  :  X'^  jP'^i  »  '?s''/ 


'fst. 


40 


Suisfoi^  1 1 V-  e 


AON  E  f 


I 


C*eT  up  C^'ns'ti.Q 

i?At)  -  S').  sn  -i" 
jsec-  :  ^ol>  A  L-i".  O 
ixP  =  ^«3i?5'3o7 

I  Px  i  4-  ;  i"  -a  i  6'’3 


>  o 


30 


V _ 


3</  1 


T=Ji(i,v'^'73!.^  I 


\  / 

1=0 

v3  •2. _ y  _ 


T-.pAr 


T^DA-^-r  lo'^  (..S’ 


- 'H 


Coi^Pure. 


Xl-J  Pi.,  PLP  p:x,  1>,  j 
^  s,  Cl  A:  r  ' 

CA^  -5^  SA^  S0^  i 

CDC.A,  o»i'  JlJSq 


r.i 


I 


^LiArowltiK'c’-  "P  E-j5) 


Se-fc  up  ^u>*^s'ta>'f  s 


Cl'  . 

•  1 

q^£-l.H  7^  { 

-PL-- 

.  V  ri.  <5  - i 

Vz  ' 

(•oot.  ?  '*^7  i 

Pr* 

3.  /  V  /  2-  ^  S'  3  1 

UPK 

-0.0  1 

•' . . 

!  Se.-t  X-1  ^or' 


X-  X  fey'  i‘)  i,  "i  I 

I-  2.  fer  /=)  i  V  ! 


I  CoMPw-rs. ;  ; 

Sol  t  Su /JL  (r')  + CL-*T +- C  is'Ca:)  5X/V  f{C1  -Cl-H  (r))  j 

=  SoL-Clt.CE)*  SXfJ  F  ^SoL-t-SoL^  I 

iCCL  s  AT*  I'J  F  ♦  Cl"]  (r)  *  SxMF 

j  epA  »  CoS  F  (P  a") 

I  ct)ej..  cos  F  Ci^ec.) 

S/^?A»  Sx^JF(^?A) 

Sj> (Sc  t  sx M  F  ^ ) 


CO''-'  Put  6.  ' 

U  1  =  C«  A  c  jcc. 

Ut,'  S'S  A  *  C3>ff  C. 

U3  i  a3>cc 

1  i 

i 

V 

i 

' 

'_ _ 

i  • 

ifi-  li 

xa)''-f-  x(3')*' 

1 

v/l'  ;  V3--X(3;/>i 


TT  =  Ui-HVi-  -t-UiXV2-  +  M3*  '^'3 


4 


Pa£5  5. 


S  L  B  RD  u  ~  I  /IE;  IRz  ^<^1: 

~RSod  Qm-J  fliSA\jer*'C  Or:S,<c  :<■) 


f 

! 


'  ^ 

/  y^e  A  2>  \ 


60S  C/^V  AT"I 


X  M  iT  I  Ul  i  s  : 


44 


~KCAffJ)  (COMT,") 


I 

I 


'T^hi^aE 


X 


,  _ J.  '"V 


vt/^P'^rc  'X 

I  rjCr 

\Otrrnt4r  'TApC  , 


I 


I 


C.  25"-*-/^ 

'To  e 

~  -  r~ 

SEX  1^/3  « 

>  a  (3  s  X~  ' 
j6*  (V.^C  v')  T 

:  j-t" 

M,/9tTC 

o^s.e/^vAt  <»^J 

^aJ  o  0t4  ^ 

"Sex  Ilf./ 


CO'.^PUTE  "Roji  TO  ! 

■RoBro  = 

|-37 

Sosc  (>•*‘<3  -  f  t!*' 

— .-  Ji??f  fl'  !? _ 

[Jex  up  ■ 
IPOs  d-^'-OS.-Eil)^ 
(.'lie  G•.vf^/■) 

(iDflSC«.v>^rio  V  \ 

ou7"Put  y 


■'o  xirO^Ers 


;i. -..._. 

\J  C 

PI£L  /  EL  tv! 

&£C^  ■*■  M  .  AJS  Tfr 


UP  ] 

OBS  o-  ^ 
for  F  (S I  /  C 


45 


Po  I  -  ,  I  pr 


c  A*  1 


^uirou  t  I  f  t.  Ts  r-\T 


_ i _ 

T3o  jr  ^  1,3 

vovnpu'tc  Ve.loe.<tjj 
Vector 


=•4 


SuB'ROuTi 


IX 


FLOW  CHART  OF  MAIN  PROGRAM 


IMX-TL 


~r^  Kl  u 
!  -£  1.  V- 


0 I 


T 


/ 


V/ 


/i'*^ _ V 


|'H£'U>  rnpK.  . 

(c), 

•  T-^  a.r  xxx) 

I _ ’ 


t  T“£^  ^  V  o 

^  L. 

~T~ 

N-r  j:\pK  3  -  / 


i 


_ iJI^T__k _  ._  _, 

7?.:vT  ^  O.j  t^CfyjTXiO. 
’SoaMT  -.  O' ',  LSrp^.  I 
f  FC-fOTt  e.  jZTiTflfltCi, 
/f  CVT  -OjSlfCfJ^  3  ‘  <? 


</M  p 

\  W<9 


aP~ 


V 


<  o 


y 


Alio 

I -Sy  i  ffei  iP  ■*■■*:  V 
-f  s  u 

'■^tA/T  I  /?;  VT-f  /. 


MA/^y  / 


/7g‘  V 


i 


j><f>  r  >  L,  J 

IV5T!^^  /O  ■*■  ■C') 


I 

,,  CPi-t- 

\Coiee] 


k 

1^' 

-r 


-'V.- 

l-^ 

i 

1 

<ro  TO  ^ 

i?0  ^ 

^wsr^  ' 

7  0 

V-'a- 

TOV 


i'..  - - 

3-  1  ^£5iJ'<'<r  i  I 
tSu 

X  Cmt-l  s  -7^cv“  »-■»-/ 


J 


69 


“oi-^  »>  r\ 


i 


TX  TS  (k)  =■ 
KXX  X  (  JJ) 

JJ-  JJ-*-  ? 


COFL-P 


-5  /■>' 


>o  K-  1.  fe 
Ciu  iSIifK).  1.0 
<i<  -  K 

Iio  J4  '  1,  L 

|Te>^P,Tj  ••'\t3 {if >fj— 


TXK1TI3 

jcstia  r  {'^'r) » c  5‘-"3x{'<  rf'_ 
-»*  («.vST-o  (i*)  -  TiK\Ta  (jji 

;  /T~e  P  _ I 


..^15' 


■Do  K  •-  1- ,  "7 

CSc(M  TCSu  ~j  H-c  Sui3X(jj;j 

+  epnet^ 

If  V=  K'<  +  9 
FJC>>^P(hf'j  I  CSM>-1 
RXiT-O  {xi-iX)  r  CSU  n 


IfTS’FP  (,) 

IViTO  (i/) 


~ /<5  I- 


-'t—  - 

--  J  -  ■  ^ 


Ai^io  y _ 

Zi>oT 

-nst^au  .  Avoi^  ESirJ£. 
;u'-'iuo  -'u  Li  o)  -*  (-  ^/'^.') 

3  A  =  o  ♦  /?Si.'6u)  ■+• 

T^CI'A-  T/'A 

IR/nI  ^CAXWI'COSto)  X  AioR 
r  I'k/r  -sxMtci)  Jt  An  o  R 
Uiu  6U  =  RTCi^a  ^  A  n  o  R 
u  51.1 1  A  •  U  S(.\SU  =♦  U  M  U  O 
PEOOn  '  -/LCrt?^  RT  £iG^ 
Tet^pi  (^ytS-i^  * 

(-1.)  -eS6?-4'(i.') 

(jYtJ  •  (teMP/CEMOA')  es  'lKIE. 

CiXAJ  ■:  UYnJ-X/AX'OT 

|.o  f  f^ovA 

Liy^Jx  u  VnJ  +-  R  OY  A  ■><•  SJ'M  E  O 

ux-'0»('f-  Ayjr/Y-j-/? )fUxVj 

A  0.0/^ 

|C(YnJ  «  j'i'/J  -xAYfjr 
UYM=  AioR  ■*  ({Aarjr //Ltr>f)*- 
UYkI 

T?fio^  I  <3, 


Iso 

■RHoX’(i:C]  =^iAisra^‘4+R  j  ‘^■<(r) 
■Raoc  »  ■RHCc  Rh-oY 
RHOC--  \)t?Hi3C 

XLX  (K)-  '?HoX(K)/fYHoC. 

i»euTy  (K)  = 

vVSto(k-»-/3)  -XAX^K^ 


76 


J>o 


J=  1,^  XO  s  c-v-TN. 

{ iV-S7-4^  ^X),  X*  fcy 
C.  i.  ^  Sl,’^ 


i-w 

'sxsr-4>ix) ^:l-- i  '.)^ 

<  3 1  ^  •: ,  3.  /<|  »  :.P  M 

:--•.*  »j>  r  i.  <^c^i  p 

\(.  L  »-l^  j-  ,2^ 


'Tt  vu  1  »/ D  J- 5 


J'O-Jt, 

Jl  I,  XOSCWT' 


tape  (J 


Po__i_a*) 

i,lor3Cv?J. 


VV^iT'i  T»p£^ 


/\ewi  pja  ^  ; 

_ . _ ) 


^<5«__jL_ 

.  arar=  i. 


Ql'i-  i' _ ^ 

I  JDj:  iTAr?^  ' 

JCL  A  •■I  <?  A  -•  J'rA  I?  .'  ^X-^■>.') 

p-’ !-■'“• 

!5aMPH 

N4'*H  •  0  0'S(p^  .«!.l') 

rytMA-i.o-Si^jp^^-^^,  fpsgp 
P"  ’«  •  1-0  (ii^pT.rC  klp) 
b«PS..«,x^f,5.fpSg^) 
Lrtp  £  *  i;r')ie$,  V  '’W 

^M.\J  H-r^  .•  <viT£j(w) 

-(pAuT  ->•  C  -.pC  I’^CpSpH 
•  PTAx  A  ?  ! 

I  ,  -f  y  1.  VI  P  -r  H 


'wsr4>  (^■p)  — 


I  COiT  .*•  ^  T  ’j 

lS2^'*ru«  J’XI/ 

'ppiys  ;<p^C.T-»f  CC>S~  ^ 
Ci_"l  -  yi-SACfl): 

JLPJx  SXU  (Xhya 

tvi-rc>Cj-\- dO  Pr  M  ', 

CAPf  ! 

iVStoJI')  :  iT  I 

i7"A  /?  e  ;  V  St  o  (_3) 


ijo  h;  =  J.^xsrc\/r- 

a/o 


^  WiriTE.- 

"■jTAT,  pa/ 

Vn^  Pom  Vi" 


,Psro(»)  = 

f  Xc>  J 

tSTDCl)  P 

;  PPPX  ar  .ortSJ**, 

I  X,  V,  2  - > 

Xv?C  (r)  X-  1,  j 

jYi^ecf'x)_  JT-- i.  to  I 

|^V-'C  (x)^jr--i.  4  I 


Tf?rt»JSr>f  s  E. 
i  NlPiTR  1  C  C  S 


jxveo,  2  V  c  c.  1 

i - > 

!  xtv  'S-c^  y XV *- j  I 
\  ILT'J  tie.  ! 


M  u  u.  X  i  p  L.  ; 


YTv'cc.  •  cvirf?r 
jTi/fcX  •  crvi'/tx 


CXvG'tfj  Oxvii  I^T  '  /  V  I' 
v'Y  V  S  ’'T  j  V'T^X  .  'T  1/  1 

X2  v£,?x-j  >,,,f-r.  ^  V.: 


-X  V  ^  V 


<?OC  Y _ 

COf^)pvXi^  .Si'tAII.^. 

IX)  x)E  rr:  pi  ■ 

^X‘  JxiX  '  MiX/.rp. 
X  Y"  I  J  yc  y  •  X  t  r ,.  r.  P. 
■T-z  ^  ^Zcl-  ^•■  :t  /  i  P 


/  ’VT 

S^reLL  '  -r  Z. 


5 1  3-  ^ 


84 


X 

GLOSSARY 


A.  Subroutines  Used  in  Computation 

B.  Important  Mneumonic  Codes 

C.  Table  of  Program  Constants 


A. 


Subroutines  Used  In  Computations 


AQDRAG 

CALH 

COEF 

GTOBS 

RCTFY 

SETI 

TBINT 

XYZSB 

BESSEL 


CHGNXN 

LSQ 

LSQR,  LSQSl 
LSQS 


HEAD 
PRINT 
PR  IN  TO 
RCARD 


ALTAC  Language 
Computes  drag  term 

Computes  height  in  meters  above  oblate  earth 
Computes  the  coefficients  of  the  current  correction 

equation  and  stores  them  in  an  array  called  Terms 
Processes  an  observation  card 

Applies  corrections  for  atmospheric  drag  during  the 
intergration  of  the  ephemeris 
Used  during  COEF  routine  to  store  coefficients  in  proper 
locations  in  array 
Interpolates  in  a  table 

Computes  intermediate  orbit  parameters  and  satellite 
positions  and  velocity  vectors 
Computes  Bessel  functions  used  in  drag  computation 

TAC  Language 

Establishes  size  of  matrix  as  NXN.  N  can  be  any  size 

from  6x6,  9x9,  12x12 .  24x24 

Initialices  matrix  area  to  zero 

Builds  and  fills  in  Matrix  A  and  Matrix  B 

Inverts  matrix,  saves  diagonals,  relocates  6x6  matrix, 

and  then  multiplies  the  inverted  Matrix  A  by  Matrix  B 


ALTAC  Input -Output  Subroutines 

Output  routine  to  print  headings  on  output  pages 
Output  routine  to  print  ephemeris 

Output  routine  to  print  x,  y,  z.  SDOT,  YDOT,  ZDOT 
Input-output  routine  to  read  in  observation  cards  from 
Tape  0,  and  print  out  this  input 
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READER 


STARTEFi. 


PROPR(X) 

APROPR(X) 


Input-output  routine  to  read  in  station  cards  from 
Tape  10  and  print  out  this  input 
Input-output  routine  to  read  in  5  specification  cards 

from  Tape  0,  compute  LSURO.  AXN,  AYN,  HX, 
HY,  HZ,  and  print  out  the  input  and  computed 
elements 

ALTAC  FUNCTIONS 

Properizes  an  angle  given  in  radians 
Properizes  an  angle  given  in  degrees 


B. 


Glossary  of  Important  Symbols 


A 

A+  1 

ABSMX 

ABMX2 

ALPHA 

ASIGl 

ASIG2 

ASIG3 

ASIG4 

AX 

AY 

AZ 

AXNI 

AYNI 

AXI 

AZI 

CASE 

CASE2 

CD 

CDO 

CHEDl 

CNTWD 

CNTWD+ 1 

CNTWD 

CNTWD+  2 

CNTWD +3 

CNTWD +4 

CNTWD+  5 

CNTWD^-^ 

CNTWD+  10 

CNTWD  +  14 

CNTWD  +  15 


Semi-major  axis 
Semi-major  axis 

Absolute  maximum  for  angle  and  range  residuals 

Absolute  maximum  for  range  rate  residual  reject  criteria 

Minus  RA  or  azimuth  in  degrees 

Std  deviation  of  observed  range 

Std  deviation  of  observed  range  rate 

Std  deviation  of  observed  right  ascension  or  azimuth 

Std  deviation  of  observed  declination  or  elevation 

X  component  of  a  bar 

Y  component  of  a  bar 
Z  component  of  a  bar 

X  comp  in  orbit  plane  (on  N  bar)  of  a  bar 

Y  comp  in  orbit  plane  of  a  bar 
Same  as  RKSTO+  5 

Same  as  RKSTO+7 

Case  number  in  BCD,  T35 

Case  number  in  BCD,  T23 

Initial  approximation  to  the  drag  coefficient 

Empirically-determined  constant  to  evaluate  drag  coefficient 

Constant  heading  array  ;  Time  lat;  longj  altitude 

Col  19  of  control  card  5  in  BCD,  T47 

Epoch,  day  of  year,  in  BCD  W  4  trailing  blanks 

XL,  at  new  epoch  (  or  restart  time) 

Epoch  time  of  day  in  minutes - BCD,  T47 

Number  of  times  to  repeat  correction  -  T15  -  Same  as  IRPT 
REFDA  in  BCD  ;  4  trailing  blanks 
REFTM  in  BCD,  T47 

Minutes  difference  new  epoch  minus  old  epoch  {  0  if  no  new  ep 
1st  character  of  2nd  card,  T15 
AXN  at  new  epoch  (  or  restart  time) 

AYN  at  new  epoch  {  or  restart  time) 
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CNTWD+  16 

CNTWD+  21-26 

COND 

CONTS 

COSI 

COSO 

COUNT 

D 

DELTA 

DD 

DT 

ECOSE 

EFLAG 

EMIS 

EOl 

EPHEM 

EPSQD 

ESINE 

ESQ 

F 

FLP25 

HDNG 

HH 

HMPRM 

HXI 

HYI 

HZI 

IBMUTH 

IPGCNT 

IPNTFL 

IRPT 

ISTCNT 

IXXX 

lYl 

LINE 

LO 


HX,  at  new  epoch  (  or  restart  time) 

Position  +  vel  vectors  for  sat.  for  transfer  to  tape  6 
Intermediate  drag  term;  constant  for  object 
Intermediate  drag  term,  Constant  =  {VCO)':=’!'3/(4=''-EPS=l=SI 
Cosine  (Inclination) 

Cosine  of  right  ascension  of  node 
Number  of  iteration  steps  in  ephemeris 
Reference  diameter  of  vehicle  in  meters 
Elevation  or  declination  of  observation  in  degrees 

Day  of  observation - Floating  point 

Time  interval  used  in  Range  Kutta  integration 
ECC*  Cos  (ECC  ANOM) 

Column  21  of  5th  control  card  (flo  pt  integer) 

Emissivity  of  the  satellite 

Eccentric  anomaly  +  argument  of  perigee 

Core  buffer  for  ephemeris 

Square  of  eccentricity  of  the  terrestrial  ellipsoid 
ECC  *  SIN  (ECC  ANOM) 

1 -Eccentricity  **2 
Flattening  of  the  earth 

Neg  of  rot.  rate  of  earth  in  degrees  per  minute 
Array  contains  output  page  heading  for  entire  run 
Hour  of  observation  (Floating  point) 

3rd  harmonic  of  the  earths  gravitational  potential 
Same  as  RKSTO+  8 
Same  as  RKSTO+  9 
Same  as  RKSTO+  10 

Obs  code/  =  0  if  RA-DEC  /  =  1  if  AZ-ALT 

Current  page  number 

Print  option  as  ALTAC  integer 

Same  as  CNTWD+  3  (  Number  of  times  to  repeat  correctior 

Number  of  stations  in  stare  biiffer - ALTAC  integer 

Size  of  ephemeris  buffer 

Year  of  observation  since  1960,  T15 

Line  count  on  page 

Mean  longitude  at  epoch 


MCODE 

MICODE 

M2CODE 

MONTH 

NCARD 

NCNTRL 

NTAPE3 

NTAPE6 

OALT 

ONEPI 

ORGDA 

ORGTM 

P 

PHIRD 

QTR 

R 

R5 

RADYN 
RDRDG 
RECTI 
REFDA 
REFTM 
RHOO 
RKCNT 
RKSTO 
RKSTO+  3 
RKSTO+4 
RKSTO+  5 
RKSTO +b 
RKSTO+7 
RKSTO+  8 
RKSTO+- Q 
RKSTO  +10 


Col  38  of  CN  CRD  5  -  If  ME  0,  correct  elems  +  sta  position 
Col  39  of  CN  CRD  5  -  If  NE  0,  corr .  sta  position  only 
Col  40  of  CN  CRD  5  -  If  NE  0,  corr.  orbital  elements  only 

Month  of  observation - ALTAC  integer 

Switch  set  by  RCARD  =  2  if  no  more  obs;  1  if  obs  ready 
Index  for  next  storage  of  ephemeris  data  into  ephem  buffer 
Number  of  records  on  tape  3 
Number  of  records  on  tape  6 
Station  height  in  earth  radii 

Empirically  determined  constant  to  evaluate  drag  coefficient 

Epoch,  Day  of  year 

Epoch  time  of  day  in  minutes 

Semi-latus  rectum 

Station  latitude  in  radians 

Constant  =  .  25 

Magnitude  of  radius  vector  to  satellite 

R**5  ;  Fifth  power  of  radius  vector  of  satellite 

Degrees  per  radian 

Dot  product  of  RDOT  and  perturbations  vector 

Switch  =  1  if  recification  for  drag  has  occured;  =  0  if  not 

Restart,  day  of  year  (new  epoch  for  new  elements) 

Restart  time  of  day 

Atmos,  density  at  surface  of  the  earth  in  grams  per  cubic  cm. 

Control  array  for  Runge-Kutta  integration 

Current  time  (since  epoch)  of  this  integration  step 

Time  interval  for  Runge-Kutta  integration 

L,  Mean  longitude  at  this  integration  step 

X  comp,  of  A  bar  at  this  integration  step 

Y  comp,  of  A  bar  at  this  integration  step 
Z  comp,  of  A  bar  at  this  integration  step 
X  comp,  of  H  bar,  at  this  integration  step 

Y  comp,  of  H  bar,  at  this  integration  step 
Z  comp,  of  H  bar,  at  this  integration  step 
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RRDGR 

RRDOT 

RSQR 

RTA 

RTESQ 

RTF 

SATEL 

SENSE  LIGHT  1 
SENSE  LIGHT  2 
SENSE  LIGHT  3 
SENSE  LIGHT  4 
SENSE  LIGHT  5 
SENSE  LIGHT  10 
SI 

SIDRT 

SIGS 

SINI 

SING 

SIXP9 

STAID 

STARC 

STARC+ 1 

STARC+2 

STARC +  3 

STARC+4 

STARC+  5-7 

SUM 

SUM2 

TF 

THDOT 

TO 

U 

uo 

UO+  1 

UTIME 

UZSQR 


Dot  product  of  R  bar  and  total  perturbation  vector 
Dot  product  of  R  bar  and  R  bar  dot 
R:;“t-2  Square  of  radius  vector  of  satellite 
Square  root  of  semi -major  axis 
SORT  (1 -Eccentricity  **2) 

Square  root  of  semi-latus  rectum;  magnitude  of  H  bar 

Satellite  ID  on  obs  card - BCD,  trailing  blanks 

Used  by  XYZSB  to  indicate  when  1st  time  thru 
On  if  obs  on  tape  9  in  binary  format;  Off  if  not 
On,  we  are  processing  P.A-AZ  portion  of  angle  obs. 

On  if  ephemeris  is  on  tape  3 ;  Off  if  not 

Used  by  GTOBS  to  signal  when  obs  card  are  all  on  tape  9 

Used  internally  in  CNTRL 

Second  of  observation  (Floating  point) 

(Rot,  rate  of  earth  in  deg/mean  solar  day)minus  360  degrees 

The  Stefan -Boltzmann  constant 

Sine  of  inclination 

Sine  of  right  ascension  of  node 

Empirically  determined  constant  to  evaluate  drag  coefficient 

Station  ID  from  obs  card - BCD,  leading  zeroes 

Start  of  station  info  buffer  -  Station  ID,  BCD,  T47 

Station  latitude  in  radians 

Station  east  longitude  in  radians 

Station  height  in  earth  radii 

Station  datum  number 

Std.  dev.  of  range,  R-Rate,  RA-AZ,  Decl-Elev 

Sum  of  squares  of  residuals  of  range  or  angle  observations 

Sum  of  squares  of  residuals  of  range -rate  observations 

Time  after  epoch  to  stop  ephemeris  calculation 

Rotation  of  earth  in  radians  per  kemin 

Time  after  epoch  to  begin  ephemeris  calculation 

Mean  argument  of  latitude  at  time,  t. 

Mean  argument  of  latitude  at  epoch 
U ,  mod  Z  ~ 

Time  of  observation  in  minutes 

UZ*=t2;  the  square. of  Z  component  of  U  bar 
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VC03 

WX 

wz 

XISTSG 

XZNDSG 

X3RDSG 

X4THSG 

X5THSG 

X6THSG 

X7THSG 

X8THSG 

X9THSG 

XBDGR 

XDGR 

XINCL 

XJAY5 

XJMPRM 

XK 

XK2ER 

XKMPRM 

XLAMBA 

XLAT 

XLGR 

XLO 

XLONG 

XM 

XMM 

XMNPDA 

XMPER 

XMX 

XMY 

XMZ 

XN 

XNODE4.  1 


Cube  of  speed  of  satellite  in  circular  orbit  with  r  =  1 
earth  radii  in  cent,  cubed  per  sec  cubed 
X  component  of  W  bar 

Z  component  of  W  bar - WX+  2 

1st  reject  factor  for  residuals 
2nd  reject  factor  for  residuals 
3rd  reject  factor  for  residuals 
4th  reject  factor  for  residuals 
5th  reject  factor  for  residuals 
6th  reject  factor  for  residuals 
7th  reject  factor  for  residuals 
8th  reject  factor  for  residuals 

Max  no.  of  times  to  pass  thru  obs.  before  correcting 
Partial  derivative  with  respect  to  bulge  of  XDOT 
X  component  of  total  perturbations  vector  (excluding  drag) 
Inclination 

5th  harmonic  of  the  earth' s  gravitational  potential 
2nd  harmonic  of  the  earth' s  gravitational  potential 
Drag  conversion  constant 
Meters  per  earth  radii 

4th  harmonic  of  the  earth' s  gravitational  potential 
Station  east  longitude 
Latitude  of  sub-satellite  point 
1+ SQRT  (1 -eccentricity'I“'‘2) 

Same  as  LO;  mean  longitude  at  epoch 
East  longitude  of  sub-satellite  point 
Mass  of  vehicle  in  kilograms 
Minute  of  observation  (floating  point) 

Constant  (minutes  per  day) 

Meters  per  earth  radii 
X  component  of  M  bar 
Y  component  of  M  bar 
Z  component  of  M  bar 
Mean  motion 
Right  ascension  of  node 
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XNX 

XNY 

XOVR5 

YBDGR 

YDGR 

ZBDGR 

ZDGR 

ZOVR5 


X  component  of  N  bar 

Y  component  of  N  bar 
(X/R)’ 

Partial  derivative  of  Y'  dot  with  respect  to  bulge; 
same  as  XBDGR+  1 

Y  component  of  total  perturbations  vector;  same  as 

XDGR+ 1 

Partial  derivative  of  Z  dot  v/ith  respect  to  bulge;  same 
as  XBDGR+2 

Z  component  of  total  perturbations  vector;  same  as 
XDGR+2 
(Z/R)- 


c. 


Program  Constants 


2.  0 

.  2504742E10 
.  92 

6.  972E9 
1,  173913 

.  0033523299 
.  1685717364E-4 
.  33691870736E-2 
1.  62341E-3 
-6.  E-6 
9.  09E-6 
-0.  2E-6 
. 001225 
3.  141592653 
6. 283185306 
57. 2957795 
. 01745329251 
1. 570796326 
4. 712388978 
0378273. 

3441.  605067 
.  15678527E-6 
.  15078527 

7.  9048 

.  05883447 
. 9856472 
-. 25068448 
.  9 

.  49397574E18 
. 5o72E-4 
. 0743o574 
o. 7o8o580E -3 


Initial  approx  to  drag  coefficient 
Constant  used  in  drag  calculation 
Emperical  constant  used  in  drag  calculation 
Emperical  constnat  used  in  drag  calculation 
Emperical  constant  used  in  drag  calculation 
Flattening 

Flattening  constant  (3/2F)^ 

Flattening  constant  (F  +  (3/2  F)^  ) 

2nd  harmonic  of  earth' s  gravitational  potential 
3rd  harmonic  of  earth' s  gravitational  potential 
4th  harmonic  of  earth' s  gravitational  potential 
5th  harmonic  of  earth' s  gravitational  potential 
Atmospheric  density  at  surface  of  earth  in  gms/cm^ 

PI 

2  PI 

Degrees  per  radian 
Radians  per  degree 

IT 

3/2  tr 

Meters  per  earth  radius 

Nautical  miles  per  earth  radius 

Earth  radii  per  meter 

Earth  radii  per  megameter 

km/sec  per  earth  radius/kemin 

Rotation  rate  of  earth  in  radians/kemin 

Rotation  rate  of  earth  in  degrees  per  day  minus  360 

Negative  rotation  rate 

Emissivity  of  satellite 

Speed  (cubed)  of  circ  satellite  at  1  E.  R.  in  meters/second 
Stefan-Boltzmann  constant 
kemins  per  minute 

Square  of  eccentricity  of  terrestrial  ellipsoid 
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98. 67401 
99.  420937 
99. 1822167 
98. 943500314 
1  X  10"^  E.  R. 
10.0  cps 
.  00001  radians 
-37922. 43 


Theta  Greenwich  for  I960 
Theta  Greenwich  for  1961 
Theta  Greenwich  for  1962 
Theta  Greenwich  for  1963 
Sigma  for  range  observations 
Sigma  for  doppler  observations 
Sigma  for  optical  observations 
Speed  of  light 
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APPENDIX  A 


EPHEMERIS  COMPUTATION 
and 

DIFFERENTIAL  CORRECTION  THEORY*:' 


':‘From  AFCRL  62-89 
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I 

I 
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THEORY 


The  Orbit  Correction  Program  employs  two  computational  techniques 
which  speed  the  computation  without  loss  of  accuracy: 

(1)  The  satellite  motion  is  numerically  integrated 
by  the  variation  of  parameters  formulation, 
thereby  eliminating  from  the  integrands  the 
large  central  acceleration  term. 

(2)  The  differential  correction  uses  analytical  dif¬ 
ferential  expressions,  thereby  eliminating  the 
need  for  more  than  one  numerical  integration  over 
the  observation  period. 

By  developing  the  differential  equations  of  motion  in  terms  of 
parameters  which  remain  invariant  in  the  absence  of  perturbations  to  the 
two-body  motion,  the  dominant  two-body  term  is  supressed.  The  parameters 
employed  in  this  formulation  are: 

a  =  eP  a  vector  defining  eccentricity  and 

perigee  location 

h  =  W  the  orbital  angular  momentum 

L  "  M  -f-W  +  A  the  mean  longitude  of  the  object  at 

0  0  , 
some  epoch 

These  parameters  are  valid,  in  the  formulation  employed  here,  for  all  satel¬ 
lite  eccentricities  and  for  all  inclinations,  including  zero  in  either  case. 


The  differential  characteristics  of  a  slightly-perturbed  satellite 
orbit  are,  to  a  first  order,  identical  to  those  of  the  osculating  orbit.  Thus 
the  cause-and-ef feet  linear  relationships  needed  for  differential  correction 
may  be  developed  analytically,  rather  than  by  the  alternate  "variant  calcula¬ 
tion"  procedure  where  neighboring  ephemerides  are  integrated,  in  each  case 
with  one  of  the  parameter.s  modified  by  a  small  amount.  The  parameters  em¬ 
ployed  in  the  development  of  the  differential  expressions  resemble  those  used 
in  the  var iation-of-parameters  ephemeris  program,  i.e.: 


a  ■=  eP 

a 

U  =  M  +00 
o  0 


Si 


a  vector  defining  eccentricity  and 
perigee  location 

semi-major  axis 

the  mean  argument  of  the  latitude  at 
some  epoch 

nodal  longitude 

inclinat ion 


I 
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The  adoption  of  fi  and  i  to  describe  the  orbit  plane  orientation  and  of 

U  to  denote  initial  position,  restricts  the  development  to  non-equator ial 

orbits.  In  addition,  the  vector  a  is  described  in  terms  of  two  components 

in  the  orbit  plane  to  avoid  redundancy;  these  components  are  designated 

a  and  a  with  the  former  in  the  direction  of  the  ascending  node. 
xN  yN 

Any  observation  0^.  by  an  earth-fixed  observer  may  be  expressed 
in  terms  of  these  six  parameters  or  elements  describing  the  orbit  and  the 
time.  First  order  differential  expressions  relating  observation  and  para¬ 
meter  follow  from  the  leading  term  in  a  Taylor  expansion,  i.e., 

y-  ()o. 

where  the  X.  are  the  six  orbit  parameters.  Where  there  are  m  observations 
available  t(J  define  the  six  parameters,  a  set  of  m  differential  expressions 
may  be  written;  in  matrix  form,  this  set  is 


(AO.)  =  (C_)  (AXj) 


(2) 


where  is  the  m  x  6  matrix  with  typical  element, 

d  0. 


^ij°  JY7 


(3) 


The  (  A  X  J  is  a  six  component  vector,  and  (^0^)  is  an  m  component  vector. 

The  elements  of  the  (C. .)  matrix  are  the  partial  derivatives  of 
the  observed  quantities  with  respect  to  the  orbit  parameters  and  may  be 
determined  analytically  or  by  variant  trajectory  calculations,  wherein  the 
parameters  are  varied,  one  by  one,  and  the  resulting  changes  in  the  observa¬ 
tions  are  noted. 


If  there  are  more  observed  quantities  0.  than  parameters  X.,  that 
is,  when  m  j>  6 ,  the  system  is  overdetermined  and  the  nu.-nber  of  equations  may 
ho  reduced  by  the  method  of  least  squares.  The  solution  takes  the  form 


(Ax.)  »  r  (C.  (C.  .)  “1  (C.  .)'^  (  AO.) 

J  L  ij  ij  J  ij  1 


•A -2 


(A) 


where  the  -1  and  T  superscripts  denote  inverse  matrix  and  transpose  matrix, 
respectively.  The  bracketed  quantity  in  (4)  is  the  so-called  least  square 
matrix,  N; 


N  =  (C.  .) 


(5) 


In  the  interest  of  achieving  efficiency, 

irom  analytical  expressions,  which  are  detailed  in 
presenting  the  formulation  of  the  program. 


the  C. .  are  evaluated 
tj 

the  following  section 


FORMULATION 

The  Orbit  Correction  Program  can  be  conveniently  divided  into 
three  parts,  one  concerned  with  the  correction  process,  another  concerned 
with  the  generation  of  different  types  of  ephemerides,  and,  most  important, 
that  portion  necessary  for  both,  (mainly  concerned  with  the  integration  of 
the  equations  of  motion).  These  parts  will  be  documented  below  in  the  in¬ 
verse  order. 


VARIATIONS  OF  THE  PARAMETERS 

The  major  portion  of  the  Orbit  Correction  Program  is  spent  in 
generating  position  and  velocity  of  the  satellite  at  successive  times  by 
numerically  integrating  the  equations  of  motion.  This  integration  process 
is  started  by  generating  the  initial  values  of  the  integrands  and  other 
quant  Lties : 

Given  a  ,,  ,  a  „  ,  h  ,  L  (subscript  o  indicates  epoch),  the  fol- 
xN  yN  — o  o 

o  o 


lowing  procedure  is  common  to  both  the  simulation  and  differential  correc¬ 
tion  portions  of  the  program; 


(a)  Compute  Greenwich  sidereal  time  at  epoch,  ©gj.  ■ 


A-3 


^  (in  degrees)  =  D  (©-360°)  +  ©f  +  & 
gr  "  ®  gr 


where  D  is  epoch  day  number,  f  is  the  fraction  of 
a  day  elapsed  from  start  of  epoch  day  to  epoch, 
0^  is  Greenwich  s^idereal  time  at  the  beginning 
of  ipoch  year,  and  Q=  360‘?9856472 ,  the  rotation 
rate  of  the  earth  in  degrees  per  mean  solar  day. 


(b)  Compute  the  semi-latus  rectum: 


p  =  h 
o  — o 


h 

— o 


(c)  Compute  the  orientation  vector, 

W  =  ^/ 

"0  /./  p^ 


(d)  Compute  the  orientation  angles,  i^ ,  ^  >^,and  U^: 


SLn  1 


cos  r 


W 


.  sin  1 
-1  X  o 

1  =  tan  ( - : — 

o  cos  1 


0  ^  i  TT 
o 


W  . 

sin  /I  =  ^o/  . 

o  /  sin  1 


a 


"V  ■ 

o  /  sin  1 


/fa  =  tan 
o 


>in  /i 
_ o 

:os  fi 


0  <  2-Tr 
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U  =  L  +  r  if  W  <.  0  (retrograde  motion) 

o  o  o  ^ 

o 


U=L-/^ifW  >-0  (direct  motion; 
o  o  o  z 

o 


(e)  Compute  the  equatorial  coordinates  of  a^ : 

/^a  =  a  „  cos  *•  cos  i  a  sin 

X  xN  o  0  vN  o 

O  O  '0 

a  /  a  =  a  „  sin  n  +  cos  i  a  „  cos  <fl> 

“o  \  V  xN  o  0  vN  o 

\  -^o  o  o 


a  =  a  sin  L 
2  yN  o 

o  o 


(f)  Compute  the  eccentricity,  e  ,  and  the  semi-major 

ax i s  >  a  : 
o 

2  2  ^  2  ^  2 

e  =  a  +  a  +  a 
o  X  y  z 

0  o  c 

a  =  Po/  2 

o  /1-e^ 

Also  common  to  both  limulation  and  differential  correction  is  the 
numerical  integration.  The  equations  to  be  integrated  are  of  the  form: 


(t,  y^,  y^'  yy'>  i  =  i,  2,  7 


where  the  y.  equal  a  ,  a  ,  a  ,  h  ,  h  ,  h  ,  and  L. 

1  xvzxyz 

The  numerical  integration  scheme  used  is  based  on  the  following  fourth  order 
Runge-Kutta  method: 


-  v!'  +  (K,  +  2K  +  2K  +  K  ) 

1  '1  D  1.  2.  3.  4. 

1  L  1  1 
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where  K 


^  ,  n  n  riv 

i.=  >  ^1’  ••• 

1 

„  ^  ,  n,  At  n  ,  ^11 

(t  +  — ^ 


n  ^17  . 
•  ,  y.  +  — tr“) 


T  '  ti  ^21 

K3  =  r.  (t  ^  -J-,  y^  + 

1 


n  ^27 

....y^  +  ^— ) 


K4  =  fi  (t"  + At,  y^ +  K3,, 
I 


>  yy+Sy) 


ria  dh  3. 

As  can  be  seen,  it  is  necessary  to  conraute  ; — ,  - ,  and  — r 

dt  dt  d 

from  a,  h,  and  L,  several  times  at  each  integration  step.  The  first  step 
is  to  compute  position  and  velocity,  r,  £  from  £,  h,  and  L. 


Given  a,  h,  and  L  at  some  time  t,  the  following  procedure  is  used 
to  derive  position,  r,  and  velocity,  r.  Note  that  whenever  the  anomalies 
V  ,  E,  and  M  are  used,  they  appear  either  in  a  sum  with  OJ  or  in  products 
with  the  coefficient  e.  Thus,  no  indeterminacy  exists  for  zero  eccentricity. 
In  its  present  form,  precisely  equatorial  orbits  cannot  be  integrated,  since 
the  ascending  node  is  employed  as  a  reference  direction. 


(a)  Compute  p,  e,  a,  n; 

2 
1 

y 


222 

p  =  h  •  h  =  h,_  +  h  +  hf 


2  4.  2  ,  2 

a  +  a  +  a 
X  y  z 


a  =  p/l-e^ 

n  =  ! a  where  =  .07436574 

(b)  Compute  the  orientation  vectors  W,  M,  and  N: 


W  = 


(note  W  =  cos  i) 
z 


M  =  /  1  -  w2 
z  v  2 


=  sin  i 


N.,=  =cosr^ 


.4-0 


M  =  N  W  =  cos  fp  cos  i 
y  :i  z 


M  =  -NW  =  -sin/2  cos  i 
X  y  z 


N  =  0 
z 

(c)  Compute  the  components  of  a  in  the  orbit  plane,  and 


xN  =  a 

■  E 

‘  M  =  a 

yN  — 

■  E 

(d)  Compute  the  orientation  angles , and  U: 

fl  =  tan'^  ^  j  O  ^  fi  <  I'lT 

U=L+alifW  <0  (retrograde  motion) 

z 

ti=L-<^6  ifW  ■>  0  (direct  motion) 

z 

(e)  Solve  Kepler's  equation  for  E  +  C«J  by  iteration,  using 


a 

first 

guess 

of  U 

(mod  2Tr  ) 

E 

+  CO  = 

=  U  +  a  s 

xN 

in 

(E  +  ai) 

®yN  ' 

:os 

(E  +  ' 

(f)  Compute 

r  and 

it; 

e 

cos  E 

=  a  „ 

cos 

(E 

+  cO )  + 

a  ,,  sin 

(E 

+  60) 

xN 

yiH 

e 

sin  E 

"  ^xN 

sin 

(E 

+  CO)  - 

a  „  cos 
yN 

(E 

+  oJ>) 

r  =  a  (1  -  e  cos  E) 

f  =  ■  e  sin  E 

r 


^yN' 
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/ 

r  V 


1  -  e" 


cos  u 


sin  u 


j^cos  (E+  OJ  ) 
Fsin  (E+tO ) 


U  =  CCS  u  N  +  sinu  M 
V  =  -  sin  u  N  +  cos  n  M 

r  =  rU 

r  =  fU  +  rvV 


From  the  position  and  velocity,  it  is  possible  to  compute  the  per¬ 
turbative  accelerations,  specifically  the  bulge  perturbation, 

X  =  ~  J'(5U^  -  1)  +  ^  h'(7uJ  -  3) 
bo  z  /  z 

r  r 

/  9  i  S  ■)  L 

+  -A;-  K  (42U  -  63U  -3)  +  — 5-^  J.  a  w.  (5-30  U  +  33U  ) 

6r7  z  z  3^8  5  er  z  z 


.  I 


y/ 


A -8 


I 


=  -|  J  (5U^  -  3  )  +  -^  H  -  lOU  +1) 

03  2  3Z  Z 

r  Dr 


+  -S'  K^(-  63U‘^  +  70  -  15)  +  ^  a^/U  (-5  +  105U^ 

6r7  z  z  8r^  5  " 


-  315  +  231  U^) 

Z  2 


vhere  U 

z 


Z  ' 

-  and  J  = 
r 


H 


.001  623  41 

-.000  006 

.000  009  09 
-.000  000  2 


.■31  each  point  during  the  integration  at  which  the  derivatives 
dL/dt ,  dh/dt ,  d^/dt,  are  evaluated,  the  perturbative  accelerations  due 
to  drag  x^,  y^,  z^,  must  be  evaluated  and  added  to  the  bulge  accelera¬ 
tions,  Xg,  j'g,  Zg,  to  obtain  the  total  perturbative  accelerations,  x*,  y' 
and  z''. 

Given  £  and  r,  and  tabulated  values  of  the  density  ratio  and 
atmospheric  molecular  weight  versus  altitude: 

(1)  Compute  the  relative  air  speed  vector,: 


V  =  X  +  v  0 
'x 


V,.  =  >-  X 
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Also  compute  the  magnitude  of  the  relative 
air  speed  vector 


0  in  the  above  equations,  is  the  angular  rota¬ 
tion  rate  of  the  Earth. 

Compute  the  altitude  above  the  oblate  spheroid 
in  Earth  radii: 


-  I  (7)^  +  +  f 


where  f  is  the  flattening  of  the  Earth  =  1/298.3. 

Look  up  the  density  ratio  (1=  OTH)  and  the 
molecular  weight  M  =  M  (H)  from  the  tabulated 
data  (see  Appendix  C  for  the  programmed  tables), 
and  calculate  the  atmospheric  density  : 


o 


where  is  the  sea  level  valu|  of  the  atmos¬ 

pheric  density  =  0.001225  gm/cm  . 


(4)  Compute  the  skin  temperature  of  the  vehicle; 


4  £  O' 


+  (300) 


1/4 


where 


(J^  =  Stefan-Boltzmann  constant  =  5.672  x  10  , 


and 


£  =  emissivity  of  the  satellite  =  .9. 

(5)  Compute  the  drag  coefficient,  C^,  by  first 
computing  the  auxiliary  quantity 


6.972  X  lO^Vd 

C_  V  T  )  ’ 
Do  y  e  s 


and  then 


-ccr 

Cp  =--  Cjj^^  (1  +  1.1739130  e  )  , 


C.J-  being  a  reference  value  of 
ficient  =  0.92. 


the  drag  coef- 
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(6)  Compute  the  drag  terms: 


.  \ 

^  = 


y. 


(- 


K  TT  ' 

8m  ^ 


X — ►y,  z, 


where  d  is  the  diameter  of  the  satellite, 
m  is  its  mass,  and  K  is  a  constant  rela¬ 
ting  the  units.  The  program  vaJue  of 
K  =  2.504742  x  lO^. 


Finally  we  are  ready  to  calculate  the  inte¬ 
grands  d^/dt ,  dh/dt,  and  dL/dt; 

(a)  Determine  the  total  perturbations 


.\ 

r 


.\ 

-B 


+  i „ 


(b)  Compute: 

.\  .\ 

r  r  =  £  •  £ 

S  S  =  £  •  £ 

r  f  =  r  •  f 


and  the  auxiliary  quantities: 


(c)  Compute  n,  r^,  /  ,  a,  ev',  and  lli; 


\  3  D 

n  =  -  -  na  ^ 

r 


.>  A 

r6  =  W  •  r 


^  _ z  (r6^  ) 

“  (1  +  W^)  y  /(  ^ 


s  .\  \ . 

a'  =  Dr  -  Dr  -  Dr 


=  W  X  ^ 


2  \  \ 
-  e  V  =  ^ 
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\ 

L 


(d) 


Compute  h; 


(e)  Compute  the  derivatives; 


dL 

dt 


k  L  +  n 
e 


d£ 

dt 


k 

e~ 


dh 

dt 


k  h' 


EPHEMERIDES 

The  word  ephemeris  is  defined  as  a  table  of  the  positions  of 
celestial  bodies  at  regular  intervals  of  time.  As  used  here  in  refer¬ 
ence  to  the  Earth  satellite  ephemerides,  the  intervals  of  time  are 
integration  steps.  The  ephemerides  are  of  three  kinds. 


I'he  first  type  of  epher.ieris  shows  geocentric  position  and 
velocity  vectors.  No  additional  formulation  is  needed  to  produce 
this  . 


The  second  type  of  ephemeris  shows  the  position  of  the 
satellite  as  latitude,  longitude,  and  height  above  the  geoid.  This 
is  the  subsatellite  track. 

The  third  type  of  ephemeris  shows  acquisition  coordinates 
for  a  number  of  designated  sensors.  These  "look  angles"  show  the 
coordinates  at  which  the  satellite  would  appear  to  tha  station  if  it 
had  started  with  the  given  boundary  conditions  at  the  epoch.  These 
acquisition  coordinates  are  produced  for  every  integration  step  at 
which  the  satellite  is  above  the  horizon  of  the  designated  station. 


a .  Computation  of  Sub-Satellite  Track: 

If  the  option  to  compute  a  sub-satellite  track  consisting 
of  latitude,  'p  ,  East  longitude,  Ag,and  height  above  the  earth,  H, 
is  chosen,  then  these  quantities  are  computed  at  each  point  of  the 
ephemeris  as  follows; 


-  90°:^  ^  90° 


where  f  =  ■“  is  the  flattening  of  the  Earth 


(in  degrees)  =0-9  (t-t^)  -  9^^  —  0 
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where  9  =  tan  ^  (^)  0*^  0  "^  360° 

X 


and  9  =  .250  684  48  is  the  rotation  rate  of  the  Earth  in  degrees 

per  solar  minute. 


H  (in  Earth  radii)  =  r  -  1  +  (^  +  f) 

2  z  2  z 


b .  Simulation  of  Acquisition  Coordinates: 


This  part  of  the  program  simulates  "observations"  of  the  satel¬ 
lite  in  the  orbit  specified  by  the  input  parameters.  Given  0,  the  lati¬ 
tude  of  a  station  in  degrees,  Ag,  the  East  longitude  of  the  station  in 
degrees,  H,  the  height  of  the  station  above  sea  level  in  meters,  and  9 
Greenwich  Sidereal  Time  at  the  initial  time,  t  ,  in  degrees,  the  follow¬ 
ing  procedure  computes  oi,  J  ,  A,  h,  |0  ,  and  ji  ?or  time  t; 

(1)  Convert  0,  X^,  and  9  to  radians  and  H 
to  Earth  radii 


(2)  Compute: 


o  ^2  2  1/2 

C=(l-6  sin  0) 

^2  2 
where  G  =2f-f,f= 


of  the  Earth. 

2, 


298.3 


=  the  flattening 


S  =  C  (1  -  G  ) 

(3)  Compute: 

9  =  .004  375  269  1  (t-t  )  +  9  +  A 


gr 


(4)  Compute  the  station  vector,  R: 


A- lb 


X  =  -  (C  +  H)  cos 

(f)  COS  0 

Y  =  -  (C  +  H)  cos 

<p  sin  © 

Z  =  -  (S  +  H)  sin 

Compute  the  slant 

range  p  : 

^  +  i 

II 

II 

(x  +X)^ 

(6)  Compute  azimuth,  A,  and  elevation  angle,  h,  of 
object  as  "seen"  from  the  observation  station: 

_  (x+X)  cos  0  sin^  +  Cv+Y)  sin  Q  sing^  -  (z+Z)  cos^ 

xh  yO 


_  -  (x+X)  sin0  +  (v+Y)  cos  O 

yh  "  p 

(x+X)  cos  O  cos  +  (v+Y)  sinQ  cos^  +  (z+Z)  sinC^ 

^zh“ 


h  =  tan 


If  h  •<  0  (i.e.,  the  object  is  below  the  local  horizon) 
the  output  for  this  time  is  omitted. 


0  <  A  <  ZTr 


The  quadrant  is  determined  from  an  examination  of  the 
sign  of  the  numerator  and  denominator. 

(7)  Compute  topocentric  right  ascension,  (X  i  declina¬ 

tion,  5  = 


A-17 


L 


S’’ 


-7r/2^5^tr/2 


(X  = 


0  ^  a  <  2^^ 


The  quadrant  is  determined  from  sign  of  numerator 
and  denominator . 


(8)  Compute  the  slant  range  rate, 


r  ■ 


Y  =  xe  }  @  =  0.058  834  47 
Z  =  0 


^  =  f  +  R  (X,  Y,  Z) 

=  L  (x  +  X)  +  (y  +  S  +  (z  +  Z) 


DIFFERENTIAL  CORRECTION  OF  ORBITAL  ELEMENTS: 

This  part  of  the  program  relates  residuals  in  the  observations  at 

time,  t,  to  corrections  to  be  applied  to  the  initial  orbital  parameters  at 

time  t  . 
o 


The  procedure  calculates  the  orbital  parameters  and  qu.antities 
associated  with  the  station  coordinates  at  the  observation  time.  It  com¬ 
bines  these  quantities  to  obtain  the  coefficients  of  the  linear  relation¬ 
ships  relating  residuals  to  any  combination  of  Aa  /  a  ,  &  a  „  , 

o  o  xN  yN 

,  2^  ijj  and  represents  the  observations  to  determine  the  residuals. 

FLna'ily,  tEe  corrections  to  be  applied  to  the  parameters  are  determined  by 
solving  the  (usually  overdetermined)  system  of  linear  correction  equations. 
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a .  Forming  the  Linear  Correction  Equations 
Given: 

(1)  P  ,  the  latitude  in  degrees 

(2)  \  ,  the  longitude  in  degrees 

E 

(3)  H,  meters  above  sea  level 

Greenwich  Sidereal  time  at  epoch  in  degrees 

(5)  t,  the  time  of  the  observation  in  minutes,  and 

(6)  one  or  more  observed  quantities  at  this  time, 

the  following  will  compute  one  line  of  the  above-mentioned  system  for  each 
observed  quantity. 

(1)  Repeat  steps  1  through  4  under  simulation 

to  obtain  Q  and  in  radians  and  the  station 
vector  R. 


of  the  observing 
station 


(2)  Compute  the  coefficients  R  and  U  where: 


=  ^a^/r)  e  sin 


\  -  I  (U  -  U^)  R^ 

=  (^'^0  [\n  -  (E 

V  =  [\n  -  (E  +^)] 

"u  =  (a'/r)7  1  - 

Ua  =  -  f  (U  -  U,) 
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::N  r 


U  =  —  •(  ()  +  — )  sin  {E+cO)  +  a  e  sin  E 


-  (1  +  vA  -  e^)e  cos  E 


/l  -  (1 

2 


-Hv/l  - 


N 


a  ,, 

i 

->r-  ! 


1  + 


u 


yN  r 


-  (1  +  —)  cos  (E  +C0)  H-  a  e  sin  E 
a  yN 


e'^  -  (\  +  '/ 1  -  e^')  e  cos  E _ 

v/l  -  e^'  (1  +  /l  -  _  1  +/l  -  e^'_ 


xN 


(3)  Compute: 


=  r  1  R 

V/^ 


(4)  If  p  ,  the  slant  range  is  observed,  compute 

p-f>. 

Form  the  coefficients: 


a 

1! 

U)  R  +  (L 

—  a  “c 

•  V) 

u 

a 

^Aa 

xN 

=  <^^c 

•  u) 

\n  ^tc 

•  V) 

'^xN 

yN 

=  (L 
—c 

•  U) 

•  V) 

"au 

=  (L 
■nc 

■  U) 

R  +  a 

U  — C 

•  V) 

u 

U 

o 
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^aTw  "  (lie  '  ^  ^  ~  ‘  sin  i  cos  u 

C  =  (L^  •  W)  r  sin  u 

Enter  the  following  linear  correction  equa¬ 
tion  into  the  system  cf  such  equations: 


a 


+  ''AU  Al^^o 

O 

(5)  If  A,  azimuth,  and  h,  elevation  angle  are 
observed,  compute: 
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L  ,  =  -  cos  A  cos  h 

xh 


L  ,  =  sin  A  cos  h 

yh 


'‘zh 


sin  h 


A  .  =  sin  A 

xh 


A  ,  =  cos  A 

yh 


A  ,  =  0 

zh 


D  ,  =  ccos  A  sin  h 
xh 


D  ,  =  --sin  A  sin  h 
yh 


\ 


D  ,  =  cos  h 
zh 


L,=L,S+L^E+L,Z 
— obs  xh  —  yh  —  zh  — 

A,  =A,S+A,E+AZ 
—obs  xh  —  yh  —  zh  — 

'd,  =  D,S+D,E  +  D,Z 
—ODs  xh  —  yh  —  zh  — 


Compute  AL  =  L  ,  -  L 

-  -Tsbs  — c 


Form  the  coefficients  as  in  (4)  with  A 
replacing  L  and  enter  the  following  T1 
correction  equation  into  the  system  of 
equations : 


lbs 

near 

such 
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o  A  •  AL  =  C 


/^c— obs 


A\- 

A  a  a 


^  Aa 

xN  o 


+  C  .  Aa  „  +  c.  „  Au  +  c.,  Ahl  +  c.  .  Ai 

Aa  „  vN  AU  o  A‘.  o  Ai  o 
yN  o  o 


Again  form  the  coefficients  as  in  (4) ,  this  time 
with  replacing  L  ,  and  enter  the  following 

linear  correction  equation  into  the  system  of 
sucV.  equations; 


—  "  ^Aa  a°‘^‘^Aa^^\N 

-  o  xN  c 

a 


+  C 


yN 


•yN 


+  C 


AU 


A  u 


+  C 


Ai 


(6)  If  oi  ,  topocentric  right  ascension,  and  5  ,  topo- 
centric  declination  are  observed,  compute: 


L  = 

X 


L  = 
y 


L  = 
z 


A 


X 


A 

V 


A 

z 


cos  5 

CCS  6 

sin  6 


-sin  Oi 
cos  CX. 

0 


J 


^bs 


A  K 
-cbs 
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=  -  sin  o  c°s  Of. 


D  =-sinOsinO(. 

y 


D  . 
-obs 


D  =  cos  6 
z 


Compute  AL  =  L  ,  -  L 

— —  —obs  —c 


Form  the  coefficients  and  compute  the  linear 

correction  equations  as  in  ,  substituting 

A  ,  for  A  ,  and  D  ,  for  D  , 

^bs  —obs  -Tobs  -Tobs 


(7)  If ^  ,  the  slant  range  rate,  is  observed, 
compute: 


X 

Y 

Z 


-  YG 

xe 

0 


1 


R  where  6  =  0.058  834  47 


A 

Pc 


=  f  +  R 


A 


L  , 

—c  /— c 


exjj  =  a  (e  cos  E  -  e  ) 


/ 


eyco  =  ayi-e  esinE 


rv 

r 


Compute  the  coefficients  R  and  U  where: 

D  rrr  3/2  ,  3 

R^  =  V  a  ex  w  /  r 

R  =  -  f/2  -  3/2  (U  -  U  )  R 
a  o  u 


I 
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I 


xN 

*)  sin 

(E 

+  oJ )  - 

^xN 

e  sin 

E  - 

^yN 

] 

R  V 
yN 

=  (/^a^^V 

*)^-  CCS 

(E 

+  6J)- 

^yN 

e  sin 

E  + 

\n 

} 

LI 

u 

=  -IJXe^'hy^ 

/r^ 

U 

a 

~I±  _  3  m  - 
2  2  ^ 

U  "J  U 

O'  u 

\n 

-  ((JT  a^'^/r= 

2 

e 

’/■ 

cos 

(E  +CO)  - 

\n 

(1  + 

^yN 

‘)  /  1  - 

2 

e 

’[sl„ 

(E  +CO  )  - 

^yN 

(1  •+■ 

A] 

ap  J 

Form 

the  coefficients; 

% 

a 

■  <ic  ■  a>[i<5c 

(R  -  V 
a 

-/6,r 

a]^ 

'A  ■ 

u) 

R 

a 

+  %  ■  V)|^^ 

(U  +  “ 
a  r 

^a> 

-A” 

a]^ 

<A' 

V) 

U 

a 

'i.  ■  2>|^c  <%-  *  \«>-/ic\N]  ■  2)  \» 

+  (k,  ■  I)j^^  'W  ♦  <;fic'  O  "xN 


^-c  2)  l^c  ^  ^yU^"  2) 

+  (t,  ■  »)[/>.  (>+  f  V)-  />,  Oy,]  +  ^  •  V) 

c  -  <ka  ■  2)[/>a  «„  -  V  »„)-/>,  S„]  +  (^  '  »  R„ 

+  (iy  ■  V)  (u_^  +  i  U^)-  ■  V) 
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=  -  (iic  ■  ^  ‘'°®  ^  [/^c^  ■,A’'J 

+  ( ■  V)r  cos  1  ■''{li|,  ■  W)  sin 

^]  -  (ySe  ■  r  sin  i  cos  u 


-fiO  r  cos 

f 


C  ^  .  =  (L  •  W)r^  (rv  cos  u  +  r  sin  u)-  /O  r  sin  u  ' 

Ai  -c  -  [/M:  /  c  J 


+  (,6„  ■  W)  r  sin  u 


Comput 


Enter  the  following  linear  correction  equation  into 
the  system  of  such  equations: 


+C  ,  Aa  „  +  C  .  Aav,  +C^„AU 
Aa  „  xN  Aa  v,  yN  AU  o 
o  xN  c  yK  o  o 


+  4/l^+c^^Ai 


b.  CornDutinP,  the  Corrected  L  ,  a  »  a  »  h  ,  h  ,  h 

- ^ ^ -  c  >:N  yN  x  y  z 

r\  '  ^  r\  •'  r\ 


Let  2Z,  C  AX  =  AO.,  i 
i  =  1  ■' 


=  1,  2,  3,  ...  represent  al]  of  the 


linear  correction  equations  (i.e  ,  the  C..,  are  the  coefficients,  theAX.'s 

r  J  s  j 

are  the  corrections  to  the  orbital  parameters  at  time  t^ ,  the  AO^  being  cor¬ 
rected).  The  following  matrix  equation  is  solved  to  give  the  corrections, 
in  a  least  squares  sense,  to  the  orbital  parar.ieters  at  time  t  . 
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ZSi=i2  • 

•  -Z^il  ^iN 

■  •Z^i2  ^iN 

AX2 

” 

Zsi 

£<=12  ^“l 

‘'itj  2i^i2  ^tu 

7c2  ' 

Aj  iN 

2=iN 

These  corrections  are  applied  as  follows  (a  prime  means  that  the 
element  is  a  corrected  element); 


^  XT  ^  XT  +  ®  XT 

xN  xN  xN 

o  o  o 


3  *XT  “  ^  XT  +  3  XT 

y*^o  y^o 


a'  =  a  (1  +  —  ) 
0  0  a 

o 


*^0  “  *^0  '^^o 

i'  =  i  +Ai  0!Si<'TT 

O  O  O  O' 

L'  =  L  +  AU  -  Ail  if  cos  i'  <  0 

0  O  O  O  0 

l'  =  l  +  Au  +  Afl  if  cos  >  0 
0  o  o  o  0 

sin  i'  sin  fl' ^ 

-  sin  i'  cos 

o  o 

cos  i  * 
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I  2  12^  I  2 

o  xN  vN 
o  o 

p'  =  a  (1  -  e' 
o  o 


h'  =  /p/^  w' 

— O  7  “O 


/  .  i  .  r\f  /  Pi  / 

-  a  „  cos  1  sin  t,'i  -  a  „  cos  i 
vN  o  o  xN  o 

o  o 

a^„  cos  cos  +  a  sintA^ 
yN  o  "  ”o  xN  o 

o  o 

/  .  .  ^ 

a  „  sin  1 

yN  o 

0 
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Changes  made  to  preceeding  ephemeris  computation  (See  Appendix  B,  C,  D). 

1.  Two  s\ibroutines ,  LUPER  and  MONEF,  have  been  incorporated 
into  the  program  to  account  for  lunar  pertvirbations. 

2.  A  subroutine,  BELGE,  has  been  added  to  account  for  the  pertur¬ 
bations  due  to  higher  order  harmonics  in  the  earth' s  gravitational 
potential. 

3.  A  subroutine  PRESS  accounts  for  perturbations  due  to  radiatiation 
pressure. 
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APPENDIX  B 

ANALYSIS  FOR  INCLUSION  OF  HIGHER  ORDER  GRAVITY  HARMONICS 


I 


The  earth'  s  gravitational  potential  is 


CO  n  I  m  .  ,  ,  m  .  .  ] 

a  cosmX  +  b  sinmXj 

n  /  f-^nr  .  .  \ 

- p  (sin  d)  ) 

r  j  n  n  '  ^  ' 


jf.Y  Y  \llL 

r.=0  m  =  0 


r  ! 

J 


Here 


=  aeocentric  latitude 


X  =:  east  longitude 
/ 

■>.m  '  z  d 


p‘:‘(x)  =  d-x'^)  ■ 


p„(^) 


dx 


Pn  (x)  =  Legendre  polynomial  of  degree  n;  1 

r  =  geocentric  radius  in  earth  radii 
Symmetry  considerations  give 


a?  =  a}  =  b?  =  b}  =  0 
ag  =  1 

The  potential  accounted  for  by  the  original  program  is 
■  5  . 


li  .  \  _£  po  (sin  4>) 

n=0 


The  remaining  potential  is 
5  n  ;  m 


la  cosmX+  b  sinmX, 
p  \  \  \n _ n _  /  ^m 


P  (sin  (})) 
n 


n  e  2  m  =  1 


^  '  a*^^  cos  m  X  +  b”^  sin  m  X 

P  \  \  V  n _ n 


n 


P  (sin  b 
n 


1  =  0  m=0 


The  first  line  of  this  expression  was  added  to  the  original 


potential. 
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APPENDIX  C 


ANALYSIS  FOR  INCLUSION  OF  LUNAR  PERTURBATIONS 


The  perturbing  function  of  the  moon  is 


R 


m 

r 


L 


'  r 

+1  — 

'  r  , 


where 

r  distance  of  satellite  from  center  of  earth,  in  earth  radii 
r.  =  distance  of  moon  from  center  of  earth  in  earth  radii 
=  384, 403/b,  371 

m  =  ratio  of  moon  mass  to  earth  mass  =  7.  35/5.  97  x  10”“ 


s  = 

Ui  Vi  + 

U2  V2  +  U3  V3 

Ul 

=  cos 

COS>^ 

U2 

=  cos  (j) 

sin  X 

(Satellite 

U3 

=  sin  (j) 

Vl 

=  cos  4), 

COS  X  . 

V; 

=  cos  4i 

sin  Xj- 

(Moon) 

V3 

=  s  in  4' 

The  moon  ephemeris  is  computed  as  described  in  (5).  These 
equations  have  been  truncated  to  save  computer  time.  The  effect  of 
this  truncation  is  minor  as  far  as  computing  the  perturbing  acceleration. 
The  \'alues  from  the  truncated  version  and  the  full  — terms  vary  around 
20  seconds  of  arc. 


APPENDIX  D 


ANALYSIS  FOR  INCLUSION  OF  RADIATION  PRESSURE 


Form  .  a  unit  vector  from  satellite  to  sun. 

—  0 

=  cosa^  cos6qJ_  +  sina^  cosS^j^  +  sin  6^+  k 

where 

a)  right  ascension  of  sun,  °0  "  ^0  ■  *^16  ^^0 

b)  declination  of  sun,  6q  =  Cnsina^ 

^2(t  -  to)  +  Ci5  sin  [C2  (t  -  to  )  -Ci4  ] 

d)  Liq  =  longitude  of  sun  at  Jan  0.  0  of  year  of  interest 

e)  C2  =  360.°98564724 

f )  Ci4  =  (longitude  of  perigee  of  sun  minus  longitude  of 

sun  at  Jan  0.  0  for  year  of  interest) 

g)  Cis  =  2 (eccentricity  of  earth' s  orbit) 

h)  Cio  =  tan^  (mean  obliq  of  ecliptic  -i-  2) 

i)  C17  =  tan  (mean  obliquity  of  ecliptic) 

F  orm 

V  =  -  —  Pyv 
m  ' 

where 

A  =  area  of  satellite 
m=  mass  of  satellite 
p  =  4.  355  X  10"^  earth  radii/kemin^ 
y  =  emissivity  factor  of  satellite 
v  =  eclipse  factor 

If  the  satellite  is  illuminated  by  the  Sun,  the  angle  I  must  be  positive. 
V  is  1  if  I  positive,  0  if  I  negative. 


p 


A  =  ,i„-‘  (^) 

d  =  cos~^  (sin  cj)psin4)„+  cos  (t^cos  4)„cos  H) 
where:  „  denotes  satellite 
H  =  |RAe  -  RAJ 
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F  orm 


z  VUi 

y  =  VU. 

N 

Z  =  VU3 

and  add  to  the  other  perturbative  accelerations. 


I 

i 

I 

t 

I 

! 
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APPENDIX  E 


program  listing 


?9JA\  HUSSEY 


JO" 

CC  rlLr  Cu  : LFTED  frC  IT 

PRP 

GPAr-'  F9JAL  HUSSEY 

RHI. 

ALTAC2 

f.  AGTAP-  (LI  -■ 

I 

ooc  f .1  res 

jni  IT' 

Ti,lT.12.1  »T  t-FP-^fPOF^ 

' 

TT  ,  1  OT,  i2f  1  i,T  '•’'FR;  ,eUF4l 

i  Ti  r  ST  »  »  f  T  .  'F  P  f  PPU'-  .  •' 

CT1 

f  ’T»  »  ►~*..P.  9r^,HliF3  ■ 

hTI  »FT» , ,T  P-.  HfFU'  •  - 

PT' 

'■  r  T  f  »  »  ~  ad^TR  *  r  1 IF9 

hT  .  .  1  ' 

,  ,  AP,  PR,'-i'Fl  M 

PC  . 1 3 i 

'PE  <i  jP. 

, , ,TAP-RR»u"F1.  . 

HTT'  >1T 

~*»»'?AFt  PR»Fi  FI"' 5 

T 

SA  -F 

TAP  RPfTAPhPR.TAFFRF  4 

T 

RFF'  (IT 

TAF-RR.TAPLFPs 

SUhhOUT  i-E  UDr’‘'JG(tSG»EfDRfiCr»HATTv  »  A  »  G  r  BEST(J  »  PERGE  f  AD  ’  AG  » 
G  0  w  '  G  ) 

CO  f  ON  i,^l  .  f 
DI  F^'Sx''^  1  .  NiK.>  (4^00)  '' 
n,i  FUVTOM  -•..{2),  PESI''(ll-)  ? 

TAHi  f  I  EF  l><li)  ACCrF(9)  »QCOFF(lf')  $ 

I  w=iri.  =  :  ¥ 

CmI  L  S'  »N»^  fFS  ■  »ACoFF)S 

1  $ 

CALL  So  COpF)  f 

!  Q(  l)=DK -Cn^FATl:'  *  A  ( 1 ) ..  F  (  2  )  =0  .  O'? 

00  11=' .9  $ 

TE-P  =  'ESI'  (1  -I)*’C0itF(ir.-I)+(^(2)  4 
IF(I-9)  .3#’  4 
?W(2)=TE  P*E''- 
ICO  TINU'S 

3AnRAG=(  ■  EFi-')*Q  <  1)  (1  )■  F  {2)=n.O’? 

DO  ;  1=  fQ  ■? 

TE  P=PF'IO(lj-.  )*QC  'EPC  l.l-x)+G(?) 

IFC-'P,  ■  S 

FQ(?)=Tr  F*E" 

'  .1  CO  till  ? 

AOPR'  G=  (  'ESI  '  <  1  )  ♦QCO'^F+TEfP)  *0  ( 1  )  *PEFGE  ■? 

FTl '  '  4 


ST.‘"T  T 

U/ST1 5 

1  F 

% 

U/"  '  1  s 

0/  •'  1  F 

O/''  1^= 

1^= 

.'./i  IF 

■p 

(./  ''  1  F 

<V  t  1  T1 

J/' 1  Ti¬ 

ll/]  Tl 

i  /  r  ■]  K 

% 

1  /  *  1 

•h 

'  1  /  - '  1  F 

/,  /  .  IS 

c. 

>’/  ■  i^- 

'*• 

ti  /  -  ■  1  s 

0/  1  s 

F  /  .  1  F 

h /  '  . "s 

r  /  ■  .  1 ' 

F  /  .  .  s 

r  /  .  /'  ? 

^  /  .  ■' 

I 


E-1 


-/ 

F/  0U511(>l(>7Zi 
QCOtF  f/o.'i 
F/O.ci 
p/o. 0$ 

F/O.CS 

F/o.ai 

p/0. OS 
F/i:>  .0$ 

F/O.Ot 

F/O.OS 

F/-, 001088115231 
PAGES 

FnDTAC  $ 

BsiPi 

SUBf^OUTINF  BFLSe  fI.TT»U,TH.A»B»C)  # 

PlMElJSIQH  DC3.3> -P  (6f6)  »FRt4-)  f  A1.FA(6»6)  r3ETA(6»6)  »T'K3)  »W(3)  $ 
DOfABC)  J=l,6  $ 

D0(aBC)K=1»6  $ 

4LFA('Kf  J)=iD.O  i 

BETA (K » J)=0 -0  i 
A8C  CONTIMUE  $ 

ALFAf3»3)=J .B36£-6i 
ALFA  ('5»2)=-.fe7a6E-6i 
,Ai.FA<5f3)  =  ,101ie-iS$ 

ALFaCS»^)=.07425E-6$ 

BETA  f3f3)=-.9S74F-6S 
BETAfS. 2)=-. 3757^-6$ 

SETA('5i3)  =  .26  88e-6* 

0ErA(S»i|)=-.Ol569E-6S 
20  CT=COSF(THU 
STsSiNF CTH)  i 
X'=W(  I  )a<CT  +  w'C2)1'ST  i 
Yr-WCD-kST+WfZI-fCT  $ 

Z=W(  3 )  $ 

Ti=x  *  X  +  V  *  r  * 

QMU=1.0  S 
f?Ssi-T  1  +  2  *  Z 
T2=Z/5®RTF(T1) 

Dll>Z)=-TZ^  X/RS(3. 

D(2.2;--T2*  T/ft5Q 
R=SC}RTF  CRS&> 
f-atan"^  era  > 

C=CoSFCF-) 

T=SIN!F  (F) 

D(3.2)=S^’RTF  (71)/R'G»^ 

Oil  .1  )-X/R 
D<2tl  i=Y/l^ 

Zi3"  1-/-2/R 
Pv  V.  5/=-r/Tl 
Dt2.3)rX/n 
DO.  -0  . 


F  -  2 


P(l»l)=l.  $ 

P(?»1)=T  t 

P(1 .?)=  .  $ 

PC^>2)  =  ’.  t 

00  1  K='rf'  -R 

XNr  -1  ^ 

P(.  »N)  =  (2.*  XN-l.)»  F(  $ 

FO.^  I  “GEiJ  RE  dOLY'OWiALS  $ 

P(  *1)  =  (2.*  ,)*T*P(  -l»l)/Xi>-(X;  -1  .  )*P(Ni-2»  U/XK  1! 

DO  w, = 

XM='-1  % 

L=''+1 

DO  ?  N=. .F  S 

XN=r!-l  S 

P(,v,rO  =  (2.*AN-l,)*T*P(iv-lriO/XN+(2.*XN-l.  )*X,/*P(N-1»N<-1)/XN  $ 

IF(n.-M-1)3*'2»3  S 

P(n,N)zP(N»N )- ( YN-1, )*P(N-2»R )/XN  $ 

coATiNuf-:  $ 

Ih  SFRT  THE  COS  (PHD  TO  THE  ^  TERFS  $ 

2=3  .  $ 

00  4  w=4»6  * 

2=7*0  $ 

DO  4  N'=:  ,6  $ 

P  ( 1'' » iv  )  ( ^l  f  )  if’/  g; 

FOR'  Pa.RTIAlS  S 

DO  S  N= ’ »  4  % 

FR{  :)=t'.  $ 

XL='3TA.''My/X)  * 

IF(XL)F,7»7  S 

XL=XL  +  3.1'^15SF545  S 

XU=RROP7(XL3 

Cl.=CGSF{XL)  S 

SL=SINF(yL)  * 

U=R  $ 

DO  N=’»6  S 

XN=N-1  $ 

Ur‘j*R  $ 

T1=1.  S 

T2=0.  $ 

DO  •'  $ 

T3=T1*0>.-T2*5L  S 

T2=T1*S’.+T2*CL  $ 

T1=T3  $ 

xy='--i  •" 

FR(4)=F  ’  (4)  +  (ALFA(i\:fF)*Tl+BETA(N»V)*T2)/(U*R)*P{NfV)$ 

FR( 1 )=FR(1)-XN/(U*R)*(ALFA(N>M)*T3+BETA(N»M)*T2)*P(N»M)  S 

FR(7)=F^  (3)-(X'  ♦ALFA  (N»R- ) ♦T2-XF^BET A  { N r  F  )  *T1  )*P(N»N')/US 
FR(?)=F  -  (2)-(X  ♦P(iv.R)*T/C-P(N»V'+l)  )  ♦  (  ALFA  (H »  M) +71 +BETA  (NfF)* 
T2)/U 

CO  TINl  <R 

FR(D='  L*(FR(  i)-FR{4)  )/Rf 
FR(F)=i-  ■  (?)*&f^i,/R  $ 

FR(.'»)=F'^(3)*Rr'i  /R  S 

call  LI>  ER(DTTfFfXLfRfQR»OLA,nLO)  S 

FR(  1)=F  ■  (D+iR  $ 

FR{')=P  ••  (2)+rL  -  $ 

FRC«)=F  (X)+LL‘  $ 

DC  c  vr' ,3  S 

T4(  )=.  .  -R 

00  G  ^  $ 

T4(  )=.  (Vj+I  (  (  )  s 
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ArT-  (1  )*CT-T4(^)*5T  « 

H=T4(i)  kST+T4  (;^)*CT  f 
C=f‘(?) 

R^ 

EN'il  (  » 

SUH-OUT  'XE  F^ESSEL  ('Kn  ^  6r  A  ,  F  »  XK  AE » -TK  AE  » SESTO » BESI 1 »  EMK  AE»  XKAESQ 

f  '  ? 

£G.'.,TVAlE.\CE  (Ec,SI1»  HEE.I0(2)  )  i 
DI-^ASi'K'  (v(2),  A(2).  -ESIC(IO).  BESl'Kl)  $ 

TaPLELEF  XI0C0N'(12)  »XIlC0.\i(12)  ,XI0CNS{15)  »XI1CNS(  15)  * 

XKAF=<«(l)*.-)/',KDRG  S 
IF(XKAE-fl.U)8»l»lS 
iRTKAEsS-RT  (XKAE)£ 

TEiv‘P=XI‘'COK/XKaE$ 

DO  3  I  =  2»12!!: 

TE.-.P=TE-  P+XlOCOK'(I  )£ 

IF(I-l?)3»2r2$ 

3TE''P=Tt  P/Xl*  AES 

•"BE'^JO(l)  =  (  (TEMP)/(RTKAE)  )*R?PI'^1  $ 

TE.vP=XI)  CON/XKaES 
DO  4  I=2>12S 
TEi-P=TE  'P+XI1C0N(I)S 
IF(I-12^5»6»6$ 

■:^TE.>'iP=T£  P/X:-.AES 
uCO.'.TINL  "S 

ARES 1 1 ( 1 )  =  { TEMP*R2PM1 ) /RTKAES 
GO  TO  'i-' 

PEMKAE=£XP  (~XK.E)$ 

XKAESG='iKAE»*2s 

temp=xi':'Cns*xkaesqs 
DO  10I=2»15$ 

TEMPrTE  'P+XIOCi  S(I >$ 

IF(I-15)11»12»12S 
J  1TEi»P=TE  'P*XKAESOS 

inCONTINU-S  , 

19BESI0(l)=TE-P*i-:yKAE  $  ‘ 

♦note  THAT  PESn=BESIl(-l)$  ' 

TElViP=XllCNS*XK«ESQS 

DO  .13I=2»15£  ] 

TEMP=TE‘'P+XIlCivS(I)T  I 

IF(I-15)16»17»)7$ 

16TEVP=TE-P*XKAESQS 

13COMTINUes  I 

17BESI1(1)=TE''P*EN'KAE*XKAE  5  * 

9Q(l)=0.n$ 

DO  181  =  1  ,BS>  I 

Q(l)=Qil)-1.0  S 

iP  BESIl{i  +  l)=PESll(I)>t'2.0*Q(l)/XKAE+BESIl  (I-l)$ 

RET'  RNS 

ST«PT  T^C  S  I 

XIOCO'-  F/551  ,3A5B9us  : 

F/110,i't714T 
F/Pti.SH  529'S 
F/6.074O4?i;0S 
F/1 ,72772755 
F/.5725  14215 
F/.??7irt80u?$ 

F/.112l'=2lS 
F/,  ('732421875$ 

F/.n703125S 

F/,1255 
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F/l.OS 

XIICON  F/-603. 0440774 
F/-1  21, ‘^978924 
F/-27. >1882744 
F/-f  .8^-^914294 
F/-1 .99 <531744 
F/-8.7^-9259F-l« 

F/-.277‘=764474 
F/-, 1441 955574 
F/-.102=39U634 
F/-. 3 171 875? 

F/-.375  < 

F/1 .0$ 

XJ0CN9  F/.'490166265E-3'1$ 

F/.384290352E-274 
F/. 2597802785-244 
F/.14963344E-214 
F/. 07242258485-184 
F/. 02898903395-154 
F/9. 385966995-154 
F/2.402-’07555-124 
F/. 470950265-94 
F/. 06783 684035-64 
F/6. 7818841.35-64 
F/. 4340577785-34 
F/. 0156554 
F/.254 
F/1.0$ 

XilCNF  F/. 01633887555-304 
F/. 0137^465545-274 
F/9. 991549155-274 
F/8. 234726675-244 
F/3.29193568E-214 
F/1. 448451705-184 
F/. 5214426115-154 
F/. 1501754725-124 
F/. 03363930585-94 
F/5. 651403375-94 
F/.  678 1684  0 -<15-84 
F/. 05425347235-34 
5/2,604366675-34 
F/. 06254 
F/,54 

P  ,-iPPMl  F/. 398942281  4 
END  TAG  $ 

ENO«^ 

SURR0UTT,\E  C05FF(ARAYn'TRAPrXyP5R)S 

♦ 

*  SL'BROUTIi.R  COFFF  COf/PUTES  THE  COEFFICIENTS  OF  THE  CURRENT 

*  CnpRf-.CTIO'  EQUATION*  AND  STORES  THEN  IN  TERMS  ARRAY 

* 

*  ENTER  C'''^MO^'tDI'•'ENSIO^'r  AND  5SIV  STATEMENTS  HERE4 

EODlVAL5NCE(RKSTOrRKCNT(23 ) r (HYI »RKCNT(i;) ) r (HZI » RKCNT ( 12) ) f 
(NXI  »RKCf  TdO)  )  ,  (AXI»RKCNT(7)  )  »  (  AYI » RKCNT  (8)  )  » 
(AZI*R^D^T(9) ) r (AYN»AX^ (2 ) ) f (HY r HX ( ? ) ) » (HZ r HX ( 3 ) ) f 
(WY.wXCd  )  F  (hZF'FlX(3) )  F  (AYfAX(2)  )  F  (AZfAX(3)  )  F 
(XVYfX  -  m(?)  )  f  (XMZfX7X{3)  )  F  (XNYfXNX(2)  )  f  (XNZfXNXO)  )  f 
(AYMfM M  (2)  )  F  (UYfUXC2)  )  F  (UZfDX(3)  )  F  (VYfVX(2)  )  F  (VZfVX(3)  )  F 
(YfX(2))f(ZfX<3))f  (YDC-.  fXC0T(2)  )  f  (ZCOT  f  XDOT  ( 35  )  f 
(X  L'YfX- UX(’)  )f  (X.M  Zf  XNUX(3)  )  f  (E7Y  ,  EGX(2))  f 
(EDZf  57X(3))f  (COSPHf  SINPH(2))f  (CAPYf  CAPX(2))f 


E-5 


(C^iPZrL  IPXC";)  )  f  {RHoY»P^CX(P)  )  »  (RHOZ»RHOX  (.■^)  )  t 
(X?i  riS'.  »X1STSG(3)  )  .  (X?  -rSG.XJSTSGC?)  ) »  (X4THS6»X1STSG(4)  )  » 
(X‘STHS(-»X1STSG(F) )  »  U6THSG » X ISTSG  ( G > )  »  ( X7THSG» X ISTSG  (7)  )  t 
(X>^THS7.X1STSG(“)  )  »  (vqTHS6»XlSTSG(9)  )  »  (  ASUBY  ,  ASUBX  ( 2  )  )  ► 

(A9i;bZ*  SUBc  (?) )  »  (uSUPY»DSUPX(2)  ) ,  (DSUBZ»DSUBX  (?)  )  » 
(Xi-SlJBY»XLSl'BX(?) )  .  (XLSUBZ»XLSUBX(3)  ) »  (ESUBY  »ESUBX  ( 2 ) )  r 
{E-c.i.p;^,-rsy^,,  (3)  )  ,  [SSUeY»SSUPX(P)  )  »  ( SSU^Z  •'SSUBX  ( 3 )  )  » 
{Z9UPYf2SUBX(2) ) » ( ZSUBZ »2SUeX (? ) ) » (XLSUYHf XLSUXH(2) ) » 
(XL<UZH,XLSUXH{3) ) » (ACGTVtArOTU(2) ) » (AnOTW»ADOTU(3) ) » 
(ASUYT»ASUXT(2)  )  >  (ASUZTf  ASUXTO) )  t  (DSUYT»PSUXT(?) ) » 

(DBUZT» 'SUXT(3) ) » (XLY»XLX{2) ) f ( XLZ » XLX ( 3 ) ) » ( DELTY f DELTX ( 2 ) ) » 
(DELTZf  DELTX(3))i  (IRPT»  CNTWD(4))r  (IWSTO»  WST0(3))  * 

(DLYV»  rLXV(2))»  (  DLZVf  DL)^V(3))  » 

(RX^'»RSIJBA(2)  )  »  (RYN»RSU8A(3) )  »  (RSUBU»RSUBA  (4) )  ,  (UXN»  USUBA  (2 ) ) » 
(UYK'fUSUBAC?)  )  #  (USUBU»USUBA(4) )  »  (RDDTV»RbDTU(2) )  f  (RDDTW, 
RDOTUO)  )  t  (RDTXN»RD0TA(2) )  »  (RDTYN»RDOTA  (3) )  »  (RDOTVf 
RD0TA(4)  )  ,  (UDTXK'»UD0TA(2)  ) »  (UDTYN»UDOTA  (3) )  t  {UDOTU»UDOTA  (4) )  f 
(RDOTUfRDOTA (4) ) » ( I AXD » STARK ) » 

(DGP»CAPD(2)  )  »  (DDGR.CAPDO))  S 

EQUIVALENCE(DL7AA(2) »DLTAX) » (DLTAA { 3 ) » DLTAY) » ( DLTAA ( 4) » DLTLO ) , 
(DLTAA(5)»  DLTNq)#  (DLTAA(6)»  DLTIN)  S 
CO.'iMON  TO»  DTr  TF»  D»  XM»  THGR»  )(LO»  AXN» 

HX»XN»IPGCNT»COUNTf FRAC»P»RTP»WX»SINI»COSI»SINO» 

C0S0»AX,C0NnfC0NTS»ES(3»E»A»X^X»XNX»A;XM» 

XMOrE»U»UO»E01,E02»SIKEO»COSEO»ESIK-E»ECOSE»P» 

SIl'IU»COSU»AR»RTESG»UX»VX»X»XDOT»RDOT»RTA»RVDOTf 

XNUX»  X  U  »  UZFTH#  RHO»  XNUSQRr  TSf  ()»  DC?  X0VR5?  Z0VR5? 

RSGR?  RRDOT?  EOX?  XLAT?  XLONG?  RKCNT? 
OTPT?CisTWD?STACD?OBSCD?SINPH?CAPD?CAPC?CAPS? 
CAPX?OALT?PHIRO?XOVCT?SINTH?COSTH?THTA?T)^'YZ? 

RHOX  f  RHO 1 ?  SMLH  ?  TERWS  ?  WSTO  ?  TIMTB  ?  CSUB I ?  XLMPTH  ?  X INCL  ?  DLTA  A  ? 

rhoc?su-?arsdl.xlgr? 

RCNT?8SCNT?RESin?EFCNT?LSTAD?6ATE2?EFLAG? 

80CNT  ?  0,  'CNT  ?  XISTSG  ?  ABS.'-  X  ? 0MCT2  ?  ETPFG  ? TI^' J  ? 
CSUf-'?FJ''FT?ASUBX?DSUeX?XLSURX?ESUBX?SSUBX? 
ZSlJPX?XLSUXK?ACOTU?ADDEL?ASUXT?DSUXT?FACTRf('tYPE? 
XMNUTS?XLX?nELTX?A20R?UyUO?RSUBA?ROVA? 

USUBA?  I'.ENO'"  ?  SS?  OPRAl?  CBRAN?  TMiY?  SATEL?  STAID? 

XLAMRAf  ALPHA?  DELTA?  ITINES?  RANGE? 

Q?  npGCC,  XKAE»  R2PH1?  VK?  EMS? 
SinRT?THGR0?FLPP5?VC03rSIGS?£QRVU?XyU? 

THOOT  ?  F  f  XKE  ?  RHCO  ?  CDO  ?  XUIy PRM  ?  XKy  PRV  ? 
SIXP9?HMPRMfONEPI?RADYU?XVPER?LINE? 

DEN7?  FLAG4?  VFLAG?  SS?  TS?  DC?  VDATA?  ISTORV? 
RDDTU?prOTA?UDOTA?RODTO?RHODT?EXOM?EYOW?RCb'PE? 

XMUA32  ?  AByX2?G»ATEl  ?GATE2?XJAY5?SUV2?RCLT2? 

LSTCNT  ?  ‘^PHA  ?  CPH  A  ?  SDEL  •  CCDEL  ? 

ADEL  ?  BDEL  ?  CDEL  *  ABDEL  ? FCEL  ? HCELA , HDELB  ?  HDELC  ?  HDELX  ?  C APXX  ? 

ARAY? XT'/EC ?YTVEC?ZTVEC?BXSS?BYSS?BZSS?PCOF?PAB? BIG? BBUFfCVEPT? 
AVEC?  X''EC?  YVEC?  ZVECrASIGl?  lAXD?  IB-UTH? 

ISTORC  ?  '^LXV  ?  RHOV  ?  ADDLV  ?  C  ?DC  ?  IVOVOBS 

DI.'ENSIH'N  fi(2)  »  AXN(?)  ?HX(3)  ?FRAC(2)  ?  IvX  ( 3)  ?  AX  ( 3)  ?  A  (2  )  ?X''X(3)  ? 
XNX(3)  ?  AXNI  (2)  ?XN0uF(2)  ?UC  (?)  ?LiX(3)  ?  VX  (3)  ? X  ( 3 }  ? XDOT ( 3)  ? 

XU  X(?)  ?  E'"X(?)  ? 

CNTD(?7) ,5TACC {&) ?CPSCD(6) ?SI\PH(?) ?CAPX (3) ?RH0X{3) ?TXYZ(4) ? 
ter:  S(?‘^)  ?iv5T0{25)  ?TIVT'5(6)  ? CSUPI  ( h ) , X ISTSG  ( 9)  ?  ASURX  (3 )  ? 

DS(.PX(3)?  XLSUBX(3)?  uTPT(A)?  DLTAACB), 

ESUPX(3) ?S5UBX(3) ?ZSUPa(3) .VLSUXH(3) ?AnoTU(3) ?ASUXT(3) ? 
DSUXT(3) ?XLX(3) ?DELTX(3) ?RSUBA(4) ?USUBA(4) ? 

RKST0(79)?  HXI(3)r 
RKCNT(9n)?  VDATAdOrO)?  DLXV(3)? 
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F,J0FT{7)  ,ARAY(?)  » XTVEC  (6)  i  YTVEC  (6)  »ZTVEC(6)  » 

RDnTU(  ■«)  »RDC'TA(4)  .unOTA{4)  ,RH0DT(4)  » 

BXSS(6) .BYSS(6) »B2SS{4) »BCCF(2U) »BAB(3) » 

BI(5(6)  »nBUF(26)  »CVERT (36 ) »  AVEC  ( 3)  »XVEC(f )  # 

YVFC{6) .2VEC(6) »  ASIGI (4 ) » C AFXX ( 3> »  CAPD{3)f 
ADEL (3) .enEL (3  5  »CDEL (3) » ABDEL { 3) rF0EL(3) » 

HDELA(2) ,HDELB{?) »  HDElC(?) fHDELX(3)S 
DI^FN'SI'N  (5LX(3)  S 

* 

AnuTU=u  .  OQAr  OTV=0 . AD0TW=0  .  Of?ADDEL=0  .  OS 
DO  (P15  I  =  Xf23  S 
B1  TEW.  S(j.5=0.'$ 

DO  1  I=L»3S 

AOOTU=A  OTU+UX ( I ) *ARAY ( I ) $ 

ADOTV=A"OTV+VX (I ) ♦AR AY { I ) S 
AnOTW=A  ^OTW+WX ( I ) ♦ARAY ( I ) S 
1  ADOEL  =  ADDEL  +  DELTX ( I )  *  ARAY(I)$ 

BX=X ( 1 ) +C APX ( 1 ) CBY=X ( 2 )+CAPX ( 2 ) QBZ=X ( 3 ) +C APX ( 3 ) $ 
BXX=RX**2r3BYY=PY**2(SBZZ=B2**2  S 

BRH0=S0RT(BXX+BYY+BZ2)  S 

IF(IWSTO-3) A1,C0RRD»A1$ 

A1  1=1?  RANGE  OR  ANGLE  OBSERVATION 

CCLTA  TERFS { I ) = ADOTU*RSUBA+ADOTV+USUBAS 
1=1+1$ 

DLTAA=T.-'RN«S(I-;i.)$ 

3TER'-  s  ( 1 5  =ADOTV*UXN+ADOTU*RX^‘$ 

DLTAX=TERNS  ( I ) ..  I=I+.1  $ 

'^TER'  S  ( I )  =AD0TU*RYN+ AD0TV*UYM$ 

DLTAYrT'RMSCl) ’I=I+i$ 

7TERMS ( i ) =ADOT V*USUBU+ADOTU*RSUPU$ 

DLTL0=TERMS ( I ) - I=I+l$ 

PTERf-'S  ( 1 )  =ADOTV*WZ*R+ADOTW*R*  ( -XMZ )  *COSU$ 

DLTf  n=TFRMS  ( I ) '» 1=1+1  $ 

1  ITERL  S  ( I )  =R-*SIND*ADOTW$ 

OLTTN=TERMS(I)i'.I=I+l$ 

12  IF  (Il'-STO)  14fl3»14$  FIND  OBSERVATION  TYPE 

*  RANGE  OBSERVATION 

13  TERf'S  (LSTC-'T+l)  =  hST0(16)  -  RHOCtRESID  =  TERMS (LSTCNT+D* 
XMPER  S 

no  6U  K  =  1»  6  $ 

60  TERMS(K)=TERMS(K)/asIG1  $  APPLY  vvEIGHT  TO  EQUATION 

TERN'S  (LSTCNT+1 )  rTER^S  (LSTCNT+1 )  /ASIGl  ( 1 )  $ 


CALL  SETI(I.1XD»I)$ 

BAX=RX/pRHOPBAY=BY/RRHO(?BAZ=PZ/PRHO  $ 

BAXX=COSTH*!-AX+SlNTP*PrtY  $ 
BAYY=-SlNTH*BAX+COSTH*BAY  $ 

SAX=PAXX  $ 

8AY=RAYY  S 

TER''S(  I1=PAX/ASIG1  $ 

1=1+1  « 

TERNS(I)=BAY/ASIG1  $ 

1=1+1  $ 

TERNS(I)=PA7/ASTG1  $ 

GO  TO  T'^TOPS? 

♦  ANGLE  OBSERVATION 


14  TERN'S  (LSTCNT+l)=ADbEI.*RHOC^VRESID=TERMS(LSTCNT+l)  ♦XMPER  $ 

IF  (SENSE  LIGHT.3)R0>  0$ 

♦  OECL  OR  ElEV  ^ASS 
90  DON=ASI -1 {3)*PwH0  S 

SE.  5F  LIGHT  3  $ 

GO  TO  $ 
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to  on.  =  *  Pn-c 

p?  no  ■  1  .  'iM-  "5^ 

TE'  S('  1  =  rpR  ?(K)  /  .*.\  * 

TP-  P  {  ST‘-  T+  )  =  TPR  S  (LSTCNT+1)  /  nCN  $ 

CAi-l- 

TE'5-  S(i'  =  (C':STi-=«ARA'-(l)+SINTH*APAY(?)  ) /COKS 
1=1  +  ] 

S(l)  =  (-SlNTH>i‘AR.aY(l)+COSTH*ARAY  (2)  )/DON$ 

1=1  +  1 

TE«f  s(n=ARAY{:‘)/rov  $ 

60  TO  TSTOBSS 

RflMGE-RATfc  OBSERVATIOi-. 

COPRD  RHOnT=u,0$ 

0020  1=1 » 3$ 

RHOOT  { I  +  l )  =XDOT  ( I )  +“JSTO  ( 1+7 )  ? 

20  'RHOOT  =  ARAYd)  ♦  RHOOT  (I+l)  +  RHODTS 
EXOf'=A»(ECOSE+ESO-l)S 
EYOf'=A*RTESO*ESINE$ 
vnoT=Rv:oT/R$ 

R,SoR=R*R3i 

RCUPE=kSQR*R$ 

XMUA32=S0R|‘,U*A*(SQRT(AC1)  )  )? 

BARF=Xi-!  ’A32>t‘A/RCUBE3; 

BLeCH= 1 . 0+RSGR/ ( A»P ) S 
RnOTU=A  UA32*EV0M/RCUBE$ 

RnOTA=-ROOT/2  .  O+UN'UO+Ri  .OTU$ 

RDTXN=e  IRF*  ( SI.'  E0-AXNI*ESINE-AYNI )  S 
RDTYM=R  \RF* (-COSEO-AYNI*ESINE+AXNI ) $ 

UD0TU=-1 . O^Xl  UM32*EY0y/RCU8ES 
UD0TA=-R  VDOT/2 .  n+Ulv’'U0*UD0TU* 
UDTytvi=B'‘'RF*RTESR*(COSEO-AXNI*BLECH)? 
UDTYN=BARF*RTES0*(SINE0-AYNI*BLECH)$ 

00  21  1=1 »3S 

21  RnOTUd)  =  0.0<s 
□0  22  i=1^3S 

RDi  -TU=R:-'ODT  ( I  +  i  )  ♦UX  ( l )  +RDDTUS 

RnnTv=s!-onT  ( i+i )  *vx  ( i )  +rddtv$ 

22  Pi.OTW  =  RH'DT(!  +  1)  *  uX(I)  +  RPDTld 

I  =  l.'J=:tr 

CL00P24PUC=RHcC* ( ROOTA ( J ) -WOOT*USUe A ( J ) ) -RHODT*RSUBA ( J ) $ 

GLU6=RH  ^C* ( UDOT A ( J )  +  (RDOT*USUB A ( J ) ) /R ) -RHODT^USUBA ( J ) $ 

TER  S(I  '=AljOTU*PUC+RDnTU*RSU8A  ( J ) +AnOTV*GLU6+RDDTV*USUP A  (0 )  S 
1=1+1$ 

23J=J+1$ 

IF(0-5) 'LOoPBUfUGH  25fUGH  25  $ 

UGH  2=:GLUG=-l.u*Ar)0TU*RH0n*RV00T*C0SI+AD0TV*C0SI*(RH0C*RD0T 
„RH'"nT*'^>+RnnTv*R*c<  si$ 

ter:  S{l)=GLUG+AriOTW*SI.vI*(RHOC*(RVi!OT*SINU-RDOT*COSU) 
+RHCnT*"*C05U)-RDDT''  *R+SIH  I*COSU$ 

1=1+1$ 

2PJ=J+1$ 

^’TTERi  S(i  )=AlOTW*  (RHOC*  {RVDOT*C05U+Ri'OT*SIKU)-RHODT*R*SIvU) 
+RnOTW*-*SI  li$ 

1=1+1$ 

2PRESIO=.-BTO(  16)-:5H0l.Tt 

DO  -=ASI -1(2)*RHCC*3792243,/108.P8  $ 

TERVS (LSTCNT+1 ) =RESln*RHOC/nON  $ 

RESin  =  RESID  *  7.905  s 
DO  70  K  =  1»  6  S 

70  TERMS(K)  =  TER;'S(K)  /  DON  $ 
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CALL  SETKIaXD.DS 
BAX=XDCf  ( 1 )  +0 . 0  ‘'lagSuaT+X  ( 2 )  $ 

BAYrXDi.'  (2)-Q,i'58e3447*X(l)T 
8A/=:Xni  .‘(3)  S 

0Ayy=Cij'=TH>t‘^AX+?lN'TK*P-  Y  S 
BAYY=-'^''i'jTH*PA>+COSTl-*HiY  « 

BAXrBAXX  S 
BAY=BAYY  S 
TE«  S(I)=:RA>./DO^  * 

1  =  1  +  1 

TERr- S{  j.)=PAy/DOf  s 
l=i+i 

TERi  S(  J  )=PA//DON'  $ 

TSTORR  IF  (IWFTO  -  2)  A6ATE»  AGATEr  B6ATE  S 
AGATE  IF(ABS(  ?ESID)-i-BSMX)16»BAD0B.BAD0B$ 
1AIF(ABS(RESIB)-GATEl)i7fl7fOMITl$ 
t7NTRAP=l<r. 


5 

f 


1 ARETURNft 

BGATE  IF(ARS( ^ESin)-ABMX2)Bl6.BAD0B»PAD0B$ 
BlFIF(ABS(RESI0)-GATE2)17»17»0yiTlS 
BAOOB  NTRAP=2? 

60  TO  IP* 

OMITI  NTRAPr^T 
GO  TO  i 35 
START  tags 

P  PT  F/3.14.1FG2653 

P  PI  OVA  F/1.B7U7963P6  S 

P  CONV  F/.n.l74P329251  f  DEGREES  TO  RADIANS 

P  Tt.OPI  F/6. 283185306  f 

SYMROUT  COEFF.TSTOriSS 

PARRS 

ENO  TAC:- 

ENilS 

SUBROUTINE  GT0(-S  (N2)S 

♦  ENTER  DIMENSION#  CONMON#  AND  EQIV.  HERES 

EG)UIVALENCE(RKST0»RKCNT(2> )  #  (HYI  »RKCNT(  11 ) )  »  (HZ  I»RKCNT{12)  )  p 
(HXIpRKCNT(IO) ) p (AXIpRKCNT(7) ) p (AYIpRKCNT(0) ) p 
(AZIpRKONTCS)  )  P  (AYNpAXNCZ)  )  P  (HYpHX(2)  )  P  (HZpHXO)  )  p 
(WYpWX(2) ) P (WZpWX{3) ) P (AYpAX(2) ) P (AZpAX(3) ) p 
( XM Y  p  Xi>  X  ( ?  1  )  p  (  * MZ  p  XMX  <  3 ) )  p  ( XNY  p  XNX  ( 2 ) )  p  ( XNZ  p  XNX  ( 3 ) )  p 
(AYNIpAXM (2) ) p (UYpnX<2) ) p (UZpUX(3) ) p (VYpVX(2) ) p (VZpVX(3)) p 
(YpX(2)  )  p  (Z«.Xi3)  )  p  (YQCTpXOOTC?)  )  p  (ZDOTpXDOTO)  )  p 
{XN(iYpXNUX(2)  )  p  (XNUZp  XNUX  (  3 )  )  p  (  EQY  p  E0X(2))  p 
(EOZp  EOX(3))p  (COSPHp  SINPH(2))p  (CAPYp  CAPX(2))p 
(CAPZpCAPX(3) ) p (RH0YpRH0X(2) ) p ( RHOZ p RHOX (3 ) ) p 
(X2^  OSGpXISTSGIZ) ) p {X3RDSGpX1STSG(3) ) p (X4THSGpX1STSG(4) ) p 
(X5THSGpX1STSG{5) ) p {X6THSG.X1STRG(6) ) p (X7THSGpX1STSG(7) ) p 
(X8THSGpX1STSG(«) )p (X9THSGpX1STSG(9) ) P (ASUBYpASUBX(2) ) P 
(ARiirZp  '  Sl,lRX(3)  )  p  (DSU6YpDSUBX(2)  )  p  (DSU,-ZpDnUBX(3)  )  # 
(XLSUBYpXLSURXI?) ) P (XLSU3ZpXLSURX{3) ) p (ESUBY pESUBX ( 2) ) p 
(ESUhZp :SURX(3) ) p (SSUeYpS5UBX(2) ) p (SSUfZpSSUBX (3) ) p 
(ZSI'RYpZSU  (2)  )  p  (ZSUeZpZSUPX(3) )  P  (XLSUYHpXL5UXH(2)  )  P 
(Xi  SUZR  pXLSUXH(3) ) p ( ACOTV p ADOTU ( 2 ) ) p (ADOTWp AD0TU(3) ) # 

(ASI'YTp  '.SUXT(2)  )  P  {/aSUZTpASUXT(3)  )  p  (r'SUYTpDSUXT(2)  )  p 
(PSLZTp  SUXT(3)  )  p  (XLYpXLX(2)  )  p  (XUZpXLXO)  )  p  (DELTYpDELTX  (2)  )  p 
(DELTZp  DELTXC^Dp  (IRPTp  CITWD(4))p  (IWSTOp  WST0(3))  p 
(DLYVp  LXV(2)>p  (  CLZVp  GLXV(3))  p 

(RXi'  pRSlPAC?)  )  p  (RY:jpRSUBA{3)  )p  (  RSURU  p  RSUBA  ( 4) )  p  (UXN  pUSUBA  (2 )  )  p 
(UY-  pU'''.'RA  (  ‘)  )  »  (USUPUpUSUPA  (4>  )  p  (RDDYV  p  PDDTU  ( 2 )  )  p  (RDDThp 
RDi  TU(3)  )  p  (HDT.r-'pRL  OTA(?)  )  p  CRDTYNpRDOT'-  (3)  )  #  (RuOTVp 
Rni’TA(u1 ) , (UnT<VpU00TA(2) ) . (UDTYNpUPOT A(3) ) p (UD0TUpUD0TA(4) ) p 
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(r.  -'TU*  i.n-'.  (4) ) » ( i  '.yr:»STA;;'<)  f  (iAXE»ST‘iRE) » 

(n^'.C.  r;  (;  )  )  »  i-'DGf  »CA  c  (■*)  )  s 

£G.  T  VA..-iv.CE  (EL  r  AA  (,, )  ,i:.TAX)  »  (DLTAA  (  ?  )  »  CLTAY  )  t  (DLTAA(4)  »DLTLO)  t 
TA  I  L.  D)»  (ni.TAA(A),  OLTIN)  S 

CO  Ori  TO»  T»  TFt  I  aV,  THGR»  XLO.  AXNf 
hX.M-.  ^GCi  T.CkAl|.,T»PRAC»PfRTP»V*X»SI'‘l»COSI»SIMO» 

CO-^O  ,  A  X  » COi  ’  *  CivtvTS  f  ESG  r  E  »  A  »  Xf^X  »  XNX »  AXN I » 

X'''o'- E  » i  » UO » FOl .  EO?  » P I ^  £0 » COSEO » FSIUE » ECOSE » •" » 

SI  I  .CuSUfA-  .R-|F.SQ.liX»VX»X»XDOTfRDOT»RTArRVOOT» 

Xh'iiXf  A  LI  »  UZrTH.  '?H0»  XKUSGR#  TS>  C»  DC»  X0VR5»  ZOVRSr 
RS.'iRr  ^RDC'T,  I-OX*  VLAT»  XL0N6/  RKCN'Tf 
OTRT»C,  T*D » STACn, OBSCC>SINPP» CAPO ►CAPCfC APS > 

CAP/  rOAi.TfP-tlRD.XOVCT.SINTH.COSTHfTHTAATXYZf 

RHOX  » R/  01  f  SI'  LH  » TERM'S  » VilSTO  » TIMTP  >  C5UP I  »  XL.MPTP  »  X INCL  r  DLTA A  » 

RHOC»SU  »ARSDL»XLGRf 

RCl^iT,BSC^T^PESID^EFC^^T^LSTA^fGATE2^EFLAG; 

ROCI  'TrO  CNTfXlSTSGr  ABS''^X»0K.CT2»ETPF6»TIFJf 
CSU:  » Fvj  'FT »  ASUhX  »  DSUBX »  XLSUPX  » ESUBX  » SSURX  f 
ZSUPXf  X'.SUXH,A.'OTU»  ADDEL»ASL:XT»DSUXT»FACTR»OTYPEr 
XMni  T5»  'LXf''ELTX*  A20R,Uf/U0»RSUBA,ROVA» 

USIjHA»  ENO  »  SS»  0RRA1»  OBPAN'»  TMI/f  SATELr  STAID» 

XLAr-BA»  ALPt-A>  PELTAr  ITIVES#  RANGE# 

G#  IRGC'#  XKAE#  R2Pi^'1»  XK  »  EI^IS# 
SIrFT#T-GR0»FLP?5»VC03.SI6S#SGRKU»Xf'U# 

THl  iCT  s  F  #  XKE  #  RHCO  »  CDC »  X JN'PRM »  XKMPRM » 

SI/Faft  PR,-  »ONfPI»R''DYK.XyPER»LINE» 

DFij7,  F'.AGUf  VFLAGf  XWASS#  TS»  DC#  VDATA#  ISTORV# 
RD'iTU.Kf'OTA.UDf  TA#RODTC»RHOnT#EXOy#EYO,v#RCURE» 
XN’iJA32#ABMX?»GmTE1»GATE2»XJAY5#SUW2»RCNT2# 

LSTCNT.PPHA#CPt- A#SDEL#CCDEL# 

ADEL •BCEL.CDEL# ABDEL #F0EL#HDELA#HDELB#HCE:LC#HDELX#CAPXX# 
ARAY#XT'/£C#YTVtC»ZTVEC#eXS5#BYSS»BZ5Sf8C0F»BAB»BIG#BBUF#CVERf» 
AVEC#  XVEC#  YVEC#  ZVEC#ASIG1»  lAXD#  IBN'UTH# 
ISTORC#PLXV#RHCV»ADDLV#C»DC#IMOVOBS 

DI  “^NSiOM  0(2>  »AXN{?>  #nX{3>  #  FRAC  { 2 ) » WX  ( 3 )  #  AX  ( 3 )  #  A  ( 2 )  #.XEX{3)  » 
XNX  (3)  #  '  XNl  (2)  #XN0L'E(2)  #U0  (2 )  #UX  (3) » VX  (3)  #  X  ( 3)  »XD0T{3)  # 

Xi'i  XC*)#  EGX(.’)  # 

CNT'  n(27)  ,5TACi:.(6)  #rBSCD(6)  #SINPH(?)  #CAPX{3)  #RH0X(3)  »TXYZ(4)  r 
TEP  SOS)  #WST0(?5)  #TIMP(6)  #C5l)PI  (6)  »X1STSG{9)  #ASUBX(3)  # 
nSURXC)#  XLSUBX(3)#  CTPT(R)#  nLTAA(6)# 

ESli'  X(?)  #SSUeX(3)  #ZSUPX  (3)  #XLSUXH(3)  #  Ar.’CTU(3)  #ASUXT(3)  # 
nSwXTCM  ,XL'/(3)  #DEuTXO^)  #RSL.'BA(4)  #USUBA(4)  # 

RKSTOC'q)#  HXI(3)# 

RKC  T(P')#  VDAiA(lono),  DLXV(3)# 

FjaFT(7) ,AF 'YCM  # XTVEC ( 6 ) » YTVEC ( 6) #ZTVEC(6) # 

RDi'TUC')  #RriCTA(4)  #  UPOTA  (4)  #  RHOPT  (  4  )  # 

BXSS(6) -RYSSCE) #BZSS(4) #BCOF(20) »PAP(3) # 
fllG(F)  .'=HUF(P6)  #CVE'='T(36)  »AVEC(3)  #X''EC(F)  # 

YVFC(6) »ZVEC(6) #  ASIGl (4) #CAFXX (3) »  CAPr(3)» 

AOEI  (3) .RPEL(3) #CDEL(3) #APDFL(3) #FnEL(3) # 

HPELAI, )  ,HPELB(?) »  FDELC(2) #HDELX(3)5 
IF(PAK'G')3#-  »3fL 
.'IFCALPi-  )4.E#4«' 

'^IFC'FLT  )4#E#4$ 

“IE  (ROOT  ')RRATE#VR#RRATr-<5 
..'SE  <^E  LIGHT  S5 
GO  TO  i 
3D0  7  1=  fP5 
7ASi'r-X(I)=n.-'S 
ASl,FX(9)=RA'  GE  y 
N2=0  y 
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uC 

T(  . 

I'Fi 

A  " 

■  LT(.>^l,C  '  S 

AL 

u  Z 

Lf."  »-C  \J- 

IF  t 

1 

I  ' 

fil 

1-  A_ 

-Al.  '  I- A  , 

AS 

1.(1 

-=  (-  S  ,  (Al.-'-''  )  ) 

SF 

r  A  - 

t-  V  (  ) 

xl  ■- 

-7= 

SI  (iElTiO 

-sr^ 

1  a:X.. 

0.^2 

AS. 

1  Y  A 

CF'S  (AiShA)' 

CP  - 

■.  =  A 

AY 

IJS:  , 

Y  = 

SIJ  •'*A  'HXi 

OSl 

/=L 
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V,/’ 


CAi  L  V'  I^F('»TT»SV|  Tfb''LCK»hAf'-EC)'« 

U1=CC.Sr(c;LAT)*  -'SPC'^LC  )  $ 

U?  =  '‘nSr  (5L/,T  )*  ;iMr(C]_C  )  $ 

U3  =  ''Ii-r  '  SL-^  r  )  s 

V5=rfis,-  'c.N'l.' D-t^'CSFiSM  ON)  $ 

v/?=LOS^  '  T)>-'^UFtPf''..CN)  $ 

U^s'^INr  (S'-'L  T)  * 

S=i'1*Vl.+LP*''2+  :»*vs  S 

Xt/=.01? S 
Rr=(^n,? '636"P1  S 

OR=VN/r<  *(2.*RS)/(h"  *R  )*(1.5*S*S-.F)  $ 

OSL'^=-PT,MF  (SLAT  )*(CCSF  (SLOW  )*V)+SIKF(SL0N)>t‘'/2)+C0SF  (SLAT  )*V3  * 

DSLr=-S-rKF(SLO''  )  *CCSF  ( SLAT) ♦Vl+COSF  ( SLCM )  ♦COSF  ( SLAT) *V2  * 

ULA=XM/-'M  ♦  (RS*R5)/(R.  *RF)  ♦  3.*  S  ♦  OSL*  $ 

OLOrXM/^K  *  (RS*RS)/ (R^♦RF)  *  3.*  S  ♦  OSLO  * 

RETLRN  S 

ENi  1  (  $ 

SURROUT  ME  fONEF(IYP»D«Y*CLAT»CLON'»R»DEC)  $ 

RAP=F7. ’<557795  S 

5EC=20fS’65 .  $ 

TP=R.2(- 3185307  * 

PI=3. 141 59P653  S 

IF(IYR--)30»32.34  S 

T=<''AY+7’<1.5  S 

GO  TO  J.15  S 

T=.1AY+1  98.-  S 

GO  TO  3 1 5  S 

T=r'.AY+.i  ifil.5  * 

XL=' OOF (5. 200850+0. 22g97150*T»TP)  S 

FL=:  OCF(0. 739177+0. 22e02713*TfTP)  S 

FLP=MO.  F( 6. 229427+0. 0i72dl97#T» TP)  $ 

FX=!  OOF  (2.0-'1039+0.230F9572*T»TP)  5 

n=i^  OOF  (0. 328368+0. 21276e72*T»  TP)  $ 

E=  onF(j'+D»TP)  $ 

G='^onF(FL+FL.TF)  S 

H=.'^pnF(FX+FXfTP)  $ 


CLO'  =  SE:»XL+22640.*SIKiF(FL)-4586.*SINF(FL-E)+2370.=*'SINF(E) 

+7^q.*S1NF(G)--88.*SINF(FLP)“412.+SIN'F(H)-212.>*SINF(G-E) 

-pn-.*S  rNF(FL+FLP-E)+192.*5INF(FL+:-:)-185.*SINF(FLP-E) 
+34P.*STNF(FL-hLP)-J25.*SIiMF(D)-109.*SINF(FL+FLP)-55.*SINF(H-E) 
-45.  *51  F(Fi.+H)+40.*Sli'F(FL-H)-38.*SlNF(FL-E-E)+36.*SlNF(FL+G) 
-3 1 .  *S I  F ( G-E-E ) +28 . *S inf ( FL-FLP-E ) -24 . *5 INF ( FLP+E ) 


+  1‘3.*SI  F(FL-P)+ie.*SIi'iF{FLP+r) 

CLO-.=VC.TF(CLON  112960  00.) /SEC 

S=FX+.1 '98*S1NF (FL)-.0222*SINF(FL-E)+.0115*SINF(E) 

+  .iin37+PINF(G)  $ 

CL*;T=lR'^2n.*SI  F(S)  +  (1.-.00293*SINF(1.403808-.0009242203*T)  ) 
-31.*S1  F(F\-FL-E)-?5.*SINF(FX-G)-23.*SINF(FLP+FX-E) 


+2l.*Si  F(F>-FL )-525.*SINF(FX-F)+44.*SINF(FL+FX-E)  $ 
CLAT=CL'’T/S5C  $ 
CArCOSFfCLO  )  $ 
CP=C0SF tCLAT)  $ 
SA=SINF (CLO-  )  $ 
SP=SINr (CLAT)  $ 
Sn=.917'i5*S=^+.307P4*CP*SA  t 
Cnc<=C.-*CA  * 
008'  =-.  ^9784*S-  +  .9iT45*CP*S/’  $ 
IF(C.bSF(CPCA)-.  8SF(CCS-)  )3»3r4  S 
R=ATA\F (CPCA/C-  8A)  $ 
R=1.57l 796-7  $ 
GO  TO  6  $ 
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Vi 


U  R=ATANF(CDSA/Cr.CA) 

IF(R)5»-»6 
1=.  R=H+PI 

r  IF(CnS-57.8i8 

7  R=R+PI 

DECrATA  F(S^/S''PTF{1.-?P*Sl:)) 
sQ  RETl  RN 

E^’i.■  ( 

SUPPOUTTKE  press  (IXYR,X,Tfl'^X^'»VV»Ul»U?^U3)^ 
Oil- ENSIGN  X(3)'> 

TARLEDEF  SU?  L  {ii )  »C14  (4 )  »C15  (4 )  .  C16  ( 4)  »  C17  ( 4)  S 
Cl=  .gHF647?  $ 

Pl=.45FE-6  $ 

P2=l. 011^814784  S 

PI=?.14tBg2653  $ 

HR^  =  0.^l  $ 

IF(IXYR-6)in,ll,12  $ 

10  1=1  S 
GO  TO  13$ 

11  1=2 

GO  TO  13  $ 

12  IF(lXYh-7)100»101»100  $ 

101  I=3'5 

13  S0L=SUri-(I)+Cl*T+ClF.(I)*SlNF(Cl*T-C14(I))  S 

RA=S0L-' 16(I)*SINF(SdL+SdL)  $ 

DEC=ATA  !F(P2*Cl7(I)*SIi'JF(RA)  )$ 
CRA=COSF(RA)QCnEC=COSF(DEC)?; 

SRA=SIi^F  (RA )  QSrEC=SINF  (DEC )  $ 

'  U1=CRA#CDEC?U2=SRA*CDEC(;U3=CDEC  $ 

Rl=SORTr(X(l)+X(l)+X(2)*X(2)+X(3)*X(3) )S 
V  1=X  { 1 )  /R  1I':'V2=X  ( 2 )  /R  1C  v3=X  ( 3 )  /R 1  s 
1  TT=U1*V1+U2*V2+U3*V3  $ 

IF(TT).1»1»2  $ 

1  IF(ARSF(TT)-SGKTF(R1*R1-1.)/Rl)2r3»3  $ 

,  2  V=l.n  3 

'  GO  TO  4" 

3  v=ri,n 

4  XSFCT=lJ*D*PI/4.ns 
VV=-XSt'T/X  *P1*V*HRK$ 

ion  RETURN  $ 

START  TAC  $ 

SU-  L  F/4.87nP48558  5. 

F/4.866F42762  5 

F/4. 8621843  $  SUNL  FOR  1964 

F/0.0  $ 

F/n.O  5 

CIA  F/. 0559=7282  f 

F/.0  54>^733582  f 
F/.0652F14  S  C14  FOR  1964 
F/0.0  $ 

F/ii.O  9 

ClF  F/.  0334=102 

F/.r.-«34-14  = 

F/. '■334484  $  C35  F.  p  1964 

F/0,0  f 

F/n.O 

CJP  F/.043..F3n5F 

F/.nuj  .. 

F/. '143  =214  ?  '16  -OR  1964 

F/u.O 

F/u.n  4 
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U  R=ATANF(CDSA/Cr.CA) 

IF(R)5f"»6 

R=H+PI 

i'  iFccns- )7»e.8 

V  R=R+PI 

DEC=ATA  F(S^/S.' PTF51  .-SD*SC)  ) 
s9  RETl RN 

E^'^;  ( 

SUBFOUTTKE  PRE5S(lXYR,X»T»nf  Xl^fVVrUJ  KJ?»U3)S 
OIi.FNSI^N  X{3)'i- 

TA8L.EDEF  SU*- L  CA  )  »C14  (4)  »C15  (4 )  i  C16  ( 4 )  » C17  (4)  S 
Cl=  ,gH'=^647S  $ 

Pl=.U5f^--6  $ 

P2=1.0'JF814784  J 

PI=?. 141592653  S 

HpK=Q,n  $ 

iF(iyYR-6)in,ii,i2  s 

ICi  1=1  4; 

GO  TO  135 
11  1=2  5 

GO  TO  13  5 

12  IF(IXYF-7)100»101»100  $ 

101  I=3'>: 

13  S0L=SUi'L(I)+C1*T+C15(I)*SINF(C1*T-C14(I))  S 

RA=S0L-' 16( I>*SINF(SOL+SdL)  S 
DEC=ATA:iF(P2*C17(I)*SIi'lF(RA)  )S 
CR A=COSF ( RA ) QCDECrCCSF { DEC ) 5 
SRArSIi'vF  (RA  )  iSSHECsSINF  (DEC)  S 
U1=CRA*CDEC ^U2=SRA*COECCU3=CDEC  * 
Rl=SORTF(X{l)*X (1)+X(2)*X{2)+X(3)»X(3) )S 
Vl=X(l)/RlF'/2=X(2)/Rlffiv3=X(3)/Rl$ 
TT=U1*V1+U2*V2+U33«V3  S 
IF{TT).1fl»2  $ 

1  IF(ARSF(TT)-SGkTF(R1*R1-1.)/R1)2»3»3  $ 

2  V=l.n  3 
GO  TO  4' 

3  V=0,0 

4  XSFCT=U*D*Pl/4.0$ 

VV=-XStr:T/X '  *P1*V*HRK5 

ion  return  S 
START  TAC  5 

51/ L  F/4,87nP48558  5 

F/4. 866542762  S 
F/4. 862 1843  $  SUNL  FOR  1964 

F/U*0  ? 

F/n.O  5 

CIA  F/.n55cc72ft2  5 

F/.r 544333582  S 
F/. 0652514  S  C14  FOR  1964 
F/0.0  f 

F/n.O  ? 

C15  F/. 0334502 

F/. 0334-14 

F/.  0334484  S  C15  F>. »  1964 

F/0.0  f 

F/n.O 

C15  F/.n43o5,-^n55  <- 

F/. 043  '=266'^ 

F/.''43  -21P  ?  "lA  POR  igen 

F/o,0 

F/n.n  - 
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ClT  - 

F/.^'33^^26C 

'-gqg  ?  ri7  for  .igA4 
F/O.o  % 

F/u.O  <K 
ENO  TAC  S 
E^')  S 

SUFtPOUTTNE  SUF.  (  I  »;'J  »B)  S 

DI.'*ENS1  'tv  I  (IP)  »R(ir.)S 

TABI  EDEP  AC‘-.tS(?3)  r^^CKTS(53)  $ 

DO  1  L=-!  ,10? 

IF(I(L) 53,3,25 
2  TE'^PsO.:’? 

K-1  (D? 

DO  U  J=1  ,KS 

TEMPr A^kTEVP+ACK  TS  ( N )  $ 

4  N  =  N  +  1  S 
B(.'  )=Tc  -  PS 
1  1  =  •  +  .1  $ 

"  RETUF  S 

STArr  TAC  S 

ACi'TS  F/,160217285S 
F/.2145'!3755 
F/. 328 125$ 

F/.7.SS 

F/1.0$ 

F/. 341796075$ 

F/. 46878$ 

F/.75$ 

F/2.0$ 

F/.2563t7656$ 

F/. 322265625$ 

F./.4375$ 

F/.7S$ 

F/, 205078125$ 

F/. 934375$ 

F/..-F$ 

F/. 1281^3828$ 

F/.128g'625? 

F/. 509575$ 

F/,i'683=:937r>$ 

F/.C46.775$ 

F/. 0566-10938$ 

F/,f214  -4375$ 

GC' TS  F/. 0747080664$ 

F/-. 8544921565-1$ 

F/,C'g76'=6265 
F/-,1 171875$ 

F/.140c2B$ 

F/-.187=$ 

F/.25$ 

F/-.5$ 

F/1 .0$ 

F/-.134‘=825;s 

F/.  1708'^8438$ 

“984"8$ 

F/.  9343  ■'5$ 

F/-.234'»75$ 

F/.375i 

F/™.37tff 

F/1,0$ 
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F/-3 ,0i 
F/.J  19.-'’8Qi.r5 
F/-,3  3.-7iP7‘^3. 

F/.146U  4?'7-? 

F/-.17' 

F/.IP7' - 

F/-.P51 

F/.PFS 

F/-.na';72iP.797-? 

F/.1  ri2-’906?S 

F/-S  102'=39i.ir35 
F/.i371"75S. 

F/-.3  171fi7F-:- 
F/.3  ?5-* 

F/-.12P'® 

F/.P59'^1445?1S 

F/-.n6P759375$ 

F/.n58^^375ff 
F/-. 0703125? 

F/. 046875$ 

F/-'.062'=$ 

F/~.n3P45214e4¥ 

F/. 0341796675$ 

F/-, 0341 796675? 

F/. 0234375$ 

F/-. 0234375$ 

I  F/. 0170496438$ 

^  F/-. 01953125$ 

F/.0n97.'5625$ 

F/-. 01171875$ 

f  F/-. 009^^1303711$ 

F/.on48828i?.5$ 

F/-. 0048828125$ 

I  F/. 00213623047$ 

S  F/-. 00244140625$ 

ENOTAC  $ 

ENO? 

I  SUBFOUTTN'E  FCAOD  (SATEL » STAID  r  ASIGl  f  IBM'TH  r  CAYNOr  ALPHA » DELTA* 

RANOE  *  RCDTO  *  UTI ^E  *  NCARO  *  XVPER ) $ 

* 

♦  RCARD  READS  AhD  CONVERTS  AN  OBSERVATION  CARD  ; 

♦ 

DI-tNSION  KARAY<7)r  Dl(3)*  ASIG1(4)  $  j 

TARLE‘  EF  TNOTO  (12)  $  | 

kFAD  reap  laFUT  TAPE  N*OCR*ENDER*SATELr ITYPErSTAlD* IY1,M0NTH»DD»HH»  I 

XMf-  fSIrHARAY  $  | 

OCR  for  at  (A2f  A3*U*4X*V';4*I1»I?*3F2,0*F6.4*A3*6A8)  $  | 

ALPHA  =  0,4'  DE.-TA  =  O.it  RCDTO  =  0.4  RANGE  =  0,  $  I 

DO  in  1  =  1,4$  I 

)•  ASIP-KI)  =  ,0  $ 

IF  (n  IYER)  E  (HEND  ,  NCAPD  =  29  RETURN  $ 

NCA^n  =  .1  $ 

IF(  ITYr --4)RCRi  2AfRCRD3A,RCFD2A  $  jr^p  IF  RASE  FREQ 
RCFD2a  DArisO  =  TVOTO(.ONTK)  +  DD  $ 

STi’T  r  C$  CHt-CK  F'R  I.EAP  YEAR 
TVm  hAKAY$ 

SR  A  30  P 

TA  -  hAFAY 

IM.'  L  lYi  $ 

Tf..  lYr- 


E-15 


JO.  SV‘.  J,  !-•  f,.  kot  LF''-P  Y=*iR 

JC  C'.V  J  ■"  IF  NPT  LEiiP  YriR 

ENI.  Tt. 

I.-  (  '^  TH)  TC  )»  o  YKC=DflY'' 0+1  .4  LE 'P  YE^R 
c'  2  UTi  F  =  FO.  *  ru  +  'xtj  +  si/^^o,  $  OFT  O^S  TIN'E  IN  'INUTES 

IF  'IT.  F  -  ^)  CR.I.  Rv:RD2»  RCRP4  4 
ST-.  T  1  C  •• 

APr  'I'  40  i- 

p  K^  i.r  rt/Et  s 

*  hCF.i2A  '•PACF  lu  EEjTTEO  FRt'?UENCY»  JU!- '^S  TO  READ  NEXT  CAR.‘' 

RI.FD3-  TN  F/l“47  S 

ETu  HAhAY+i  S 

TVh  HAR'^Y+;-  S 

JMP  FLTFLT.FXFLT 

TA..'  EFREOl 

JMP  REAP  4 

ENi)  TAG  4 

♦  0C<1  READS  ■'.4  RANG!-  AND  STD.  DEV  OF  RANGE  FOR  RADAR  OBSERVATION 
Cf!  1  IF(IRH'.)HD2»HD.  .HD2  S 

H.  1  WRITE  I  i.'TPUT  T.-PE  5iHDD2  4 

HI  '  2  FOw  'AT(5h20»3HSTA»6y»4.HTII^E»5X»10HRANGE-E.R.f3Xr5HSIGMA)S 
IRh.  =1.;'  4 

lOi-l  =0 
ID^•''  =  0^ 

Ki  ■  CO  TINU-  4 
STm.'-T  T  'C  S 
TI^o  36/1T47  4 

ETa  HARAY  +  1$ 

TA.  hAK'AY+1  4 

TNw  HARaY+E  $ 

FLTFLT.FLTFLT 
FDA  XMPERS 

TO.'  RANGES  RANGE  IN  EARTH  RADII 

JN.P  INDFXS  get  L(ASI61)  TO  IR4 

CA  4 

TM'a  hARAY+:‘4 

SLA.  H  4 

SLA  G  4 

AV  0/33T474 

SRA'  364 

JWH  FL'fFLT.FXFLT  t 

FDa  XVRER 

TA.  f4  « 

EM'  TAG  4 

WRTTF  ..iJTPUT  T. '^E  6 .  ROBl  »  STA  ID  »  UTIN  E  »  R  ANGEr  ASIGl  ( 1 )  $ 

RD  1  FOa  AT( 'H2ufl'4»3X»F‘’,?r3XfE12.6f3X»F4..2)$ 

STaI-T  T.'C? 

sjVP  rt;.  4 

li  EX  TO-  {P)+6H-t 

CD+ 

TXI'lC  0.43 

TO  SAV'4 

Tvr  ASIMS 

TDxLC  0.44 

JVP  24 

ENO  TAG  4 

RC-D2  IFCIOHi'  'HDEfHnr.HDH  4 

HIE  WRITE  DITPLT  T '.PE  5»Hr.  4  4 

Hrr4  FORN AT( iH?0.3HSTAr6X»4HTIVE.6X»9HALPHA-CEG.4x»qHDELTA--,EG»4X» 

RHSTG-ADPHAf  3Xf  aHSIG-D£LTAf3X»«3H0=RA  1=AZ)  S 


E  - 1  o 


lOhCrluO* 

IRHfzO 

iPHr-ro 

f 

CO  "i  INC 

-■% 

STA-T  r 

'C 

T^■w 

HAHNY+  i 

CA 

SL..*'- 

12 

0000003334 

TA 

Cl  +  1 

MNS 

CA 

SI.  iO 

12 

0000003B36 

SLA 

e 

AN' 

C/3:^T47 

000003536. 

SP-.-' 

36 

0003536.3738 

TO  Q 

oWP 

fltflt.fxflt 

FDA 

F/3600 

CONVERT  SECS 

TO  DEGS  OR  HRS 

TQw 

ALPHA 

TMO 

Dl+1 

CA 

JMP 

FLTFLT.FXFLT 

FDA 

F/60 

CONVERT  mins 

TO  DEGS  OR  HRS 

TQA 

FAw<; 

ALPHA 

TWO 

HARAYS  30 

-  32 

CA 

JVF 

FLTFLT.FXFLT 

TAi< 

D2 

TWA 

HARAYS  FIND  I'HETHER  RA-DEC 

OR  A2-ALT 

SPA 

12 

SW 

0/4CT47 

vJA7 

(P)+6H 

TWA 

D/IPIBS 

TAN 

IBWUTH 

TWa 

D2 

FAW 

ALPHA 

JMP 

(P)+6HS 

CM 

IBNUTHS  RA-DEC 

TMA 

D2 

FSn^ 

alpha 

TACv 

FMi>'R 

F/IF 

CONVERT  A7IM 

FROM  HRS  TO  DEGS 

TAM 

ALPHA 

-PT  ASCEN  IN 

DEGS  TO  ALPHA 

TViJ 

0/7777T47 

ETa 

HARAY+IS  1*000003940  TO  A 

TMO 

HARAY+2S  41- 

48  TO  R 

SLAO 

12 

000039-42  TO 

A.43-48Q0  TO  0 

TA- 

D1 

CFGS 

CA 

SLUv 

12 

0000004344 

TA  - 

ni+is  vIkS 

CA 

SL-'-- 

12 

0000004546 

SLA 

6 

AV 

0/3.'5T47 

SLa 

6 

00004546.47 

TO  A 

TA 

CA 

JMA 

FLTFLT.FXFLT 

FPA 

F/:*  '00 

CONVERT  SECS 

TO  DFGS 

TP 

1  ElTa 

TN 

r  1+ ] 
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CA 

J^  '  hLTPLT.FXFL’T 

Frj  ;-/o  COi  VeP^T  f  TNS  TO  DEGS 

FA,.'-  nEuTA 

T^^'.  1  1 

CA 

JN't'  fltflt.fxflt 

TA  •  D1  * 

TN'.a  FLIFLI.^'^SIGM  S 

J.A.’  (P)+4H  S 

tea  u]  $ 

FS'-'F  DELTA  “S 

JEP  (P)+3H  $ 

TEA  D1  f 

FAES  DELTA  5 

TEA  HARAY+U? 

SLa  12$  GET  0.159-6? 

SRUE,  24 

SP.AC  12 

SLA  6 

AE  0/37T47 

SRa'  36 

JMP  fltflt.fxflt 

CM  HAHAY+f 

TA,  HAkAY+c 

TEA  hARAY+6 

JMP  INDEX  $ 

TAM  2 >4$ 

TMP  12/1T47S 

ETA  HAhAY+4$ 

TEG  hARAY+5S 

SLA  6 

AE  0/33T47 

SRAC  76 

JEP  FLTFLT.FXFLT 

TAf.-  3»4$ 

END  TAC  $ 

WRITE  OUTPUT  T'-PE  SrOOBl  fSTAIDfUTIEErALPHAf 0ELTA,ASIG1  (3)  » 
ASIG1(4)  »I6‘'  UTK  $ 

on  1  FOR'  AT(2H23»W4.3X»FP.2»3XfF30,6f3X.F11.6f5XfF5.2»eXfF5,2. 
AXfIl)  $ 

OO(CV)  f=3f4  $ 

CV  ASIG1(T)=ASIG1(I)*. 000005  S  CONVERT  SIGMA  TO  RADIANS 
START  TSC.  $ 

JEP  RTiv  $ 

TEOTO  F/o.ns 
F/31.0$ 

F/SO.0$ 

F/qr.  ,0$ 

F/12a.u« 

F/l'^l.i  * 

F/l.'l.i,"' 

F/212.b'r 
F  /  >*  4  7  .  u  T 
F/2R3.I 
F/''n4.in 
F/774,i  $ 

F/365.L'« 

*  OCR3  reads  I.\  DOPPLER  OBSERVATION  (RANGE  RATE) 

END  TAC  $ 
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RCPD4  IFdnHL  )HD3»hD4,HD3  $ 

HD4  HRITF  i.iJTPUT  TAPE  SrHDOS  S 

Hr>r,3  FO^  4T('^H20»3HSTA»ftv,4hTIVE»6X»i0HFREGl  -  CPS»4X.5HSIGMA)  S 
IDHt  rlu--  «(; 

10-  =n  • 

IRH-  zo  - 

HI  ■'  COi'^TINL.  ''  ? 

STAriT  T-CS 
Tyo  6/1T47  5 

ETA  HARAY+i  S 

TFR  HAPAY+=  S 

jyp  fltflt.fxfut 

TA-  01 

FA-  F/ICO.EP  S 

TA^  IJ1  +  ]  5 

FDA  F/100.  $ 

TGi-  02  S' 

TMA  01  $ 

FSi'^'  EFREGl  S 

FDA  01+1  a 

FMiv.o  F/-37922.43 

TAM  RODTO 

JMP  INDEX  f 

AIXO  1,4S 

0Cfl2  CA  $ 

TKO  HARAY+?  S 

SLAO  6 

SLA  6 

AM  0/33T47 

SRAO  ?6 

JMP  FLTFLT.FXFLT 

TAM  ,4$ 

END  TAG  5F 

WRITE  OUTPUT  TAPE  5»D0B1»STAID»UTIME»D2» ASIGl (2)5 
DOPl  FOR"AT(2H20fW4»3X»FP.2»3X»F12,2»3X»F4,2)$ 

START  TAGS 

RTN  TMD  SAVl  $  RESTORE  INDEX  REGISTER  4 

TDXLG  0»4  $ 

E  AFEMD 

END  TAG  S 
RETURN  + 

END  % 

SUBROUTINE  PCTFY{XMPER»ESINE»EC0SE. A,wx»DRGCO»RKSTOfXNfXMZ» AYNir 
UZrP)  7 

♦ 

*  SUBROUTIi'E  RCTFY  APPLIES  THE  CORRECTIONS  FOR  ATMOSPHERIC  DRAG 

*  muring  THE  li'TEGRATION  OF  THE  EPHEMERIS 

*  IT  IS  called  O’XE  per  REVOLUTION  BY  CMTRL»  INT'^GRATION  CONTROL 

* 

EOI'IVALENCE  (BESI1»  8ESI0{2)  )  $ 

DI-'FNSICN  R<ST0(79)  »BESIO(in)  »mFSI1  (1)  »WX(3)  »  A(2)  »0(2)S 
STA'vj  TAG  ? 

P  PI  F/3.141?i92fiF3  5- 

P  XKE  F/.r.743A52aus 

ENO  tag  5 

ECCEN=mTAN  (ESiNE/ECOSr )$ 

IF(FCCE  )1,?»2P 

1  ECCE.\ZP;  +  ECCEN'- 

2  XM-ANA=ZCCF'  -ESINE.TvTPI=XyEA^  A/X^? 

ES.v=RKs''i  (h)**- +RK5TC(7)**?+PKctCCa)#*; 

EzP'-rt  ,>S-)5- 
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PF. ‘rr.  '  n*(l.  -r)  -  =P  PGFi: 

/F  -(X  •■*AY  i*  )/F  Z=/Fi:/  ■  ? 

(-  =  .  I  Ml  -  -R)  <S 

CAI  L  T.  T,.T(I»h.FIG(-  »X-F»VKrRP,RATI'')  ? 

GO  Vn  I  ,f),I  •£ 

call  B.-'^SFL(XK.  PG*  A,E»  •.KAE»PTKAF»'=tSlO»FESIi  rEMKAE»XKAESG»Q)  * 

CAI  I  A  .  RAC'CES'  »E»GPGCv.iRATIC»A»«,BESIf»PERPE»ArRAG»(3DRAG)$ 

APkAG=»’ ( 1  ) +AuR*  G  5 

XM  ■  AG-  •KE/'^0PT(An„AG*’«-3)7 

fiKSTO(^  )=PKSTO(G)+X.  CR AG*Tiv;TPI-XMEAh  A  T 

FP.  EE=(  ^  .P-(PEi-GE4<irRAG)/ADPA6)/ES 
pi  )'■  AG-  '  .  05 
DO  :»  K  =  FrF  S 
RKSTO (K ) =FPr  EE4RKST0 ( K ) f 

3  PDRAG  =  PnftAG+f<KSTo(K)**2S 

PORAG^S  -RT{ADRa6*(1.0-PDRAG) )  ? 

DO  It  1=  .11* 

4  RXPTOff, )  =  V.X(I-8)*PnF,A6? 

I'RET:  RNv 

EMU* 

SUR^'OUT  •  ivE  r'EAPER  (STAhC .  ISTCMT .LSTCNT .  I ASI?E .  IDBUF.  XMPER )  * 

D1  ENST.OM  STA.-C  (lOOO)  .  IDPUFdO)® 

TARLEDE-  ASTG{OS 

* 

*  REA’'  STATIO^,  CmROS  FROi-  TAPE  'lO 

*  '^TOR'R  ST  TIO’  Ii  FO  IM  c  viiORD  GROUPS  IM  STARC  BUFFER 

♦  ASSIGN'  Ii  TERMAL  I  ATUM  ML'i'SERS  AND  STORE  EXTERNAL  DATUM  NUMBERS 

♦  IN  TDRlj-  TAELE 

ISTC  T  =  Cl?  REWI'  D  10$ 

V*RITE  «  '.ITPUT  TAPE  5. SCI  $ 

SC1  FOm'  AT(  0H7r  INPUT  DATA  -  STATION  CARDS/ )$ 

WRITE  TPUT  T“PE  S.SCii  $ 

SC?  FORNAT(?H20r3HSTA.3:<.flPUATITUDE»4X.9Hl-ONGITUDE.4X.9HELE\/ATION. 

4X.  1  2X.'  l-aHOPSERVATinN  SIGMA-S?  $ 

WRITE  CL'TPUT  Tape  5.SC5$ 

SC*  FOW  -  AT(PHl(i»R3X.30HPANGE  RRATE  RA-AZ  DEC-EL)  $ 

KM  J  =  ISTCNT  *9+1$  READ  NEXT  STATION  CARD 

READ  Ii\=UT  TAPt  10,  KM3.  (STARC(I).I  =  J.K)$ 

KN-  FOR'AT(  4,FN.5.F9.5.F6.n,5X.l4.1X.PR,8.3F8.5)$ 

IF  (STA’C(J))  c  (HEND).  GO  TO  TRL  $ 

WRITE  uljTPUT  Tape  5 . SCo.  < STARC  ( I )  .  I=J . K  )  S 
SL3  FOk-  AT( 'HlUfW4.1X.Fc.5,3X.Fi0,5.4X.F7.0.5X. I4.4X.4FP.5)  $ 

L=J+R$ 

W=1?  REPLACE  SIGMAS  THAT 

DO  pn  InL.K*  WERE  N'OT  GI\/E^ 

IF  (FT  ARC  (I)  )  2i,  10.  2i.$  WITH  STANDARD  VALUES 

10  STf'.FC(I)  r  ASIL-(M,)$ 

;a  =  M  +  1  5 

STaFC(^  +  1)  =  STARC(vi+1)  »  ,P174S329251  $  CONVERT  LAT  AMD  Ld'G  TO 

RADIANS 


ISTCNT 


IN  TABLE 
NO, 

SM  IDb'JF* 

AFF,.  n  72$ 


STARC (^+2)  =PRL PR ( -STARC (J+2)*. 01745329251)® 
STaRC (^+3)=STA -C ( J+3 ) />  RPER  $ 

ST.'PC(^  +  5)=STA(^C(J+®)/-.'‘PFR  $ 

ISTCNT  =  ISTC  T  +  '■«  FCRV  STATION  COUNT  IM 

GO  TO  M$  GO  GET  NEXT  STATION  CARD 

START  TAC-? 

P  hPND  rt/iiOnOE  I'  $ 

FOIND  TXDLC  .INCUR*  THIS  EaTERNAL  DATUM  NO,  ALREADY 
TDA  *  RFPL.-CE  STARC  ENTRY  W.  INTERNAL  DATUM 
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TAjvI 

rINSTAf-C 

jyp 

NEXT 

ASIG 

F/10,0 

S  J'.FTE^S  -  PAVcE  PIPVA 

F/li'.O 

%  C'CLr^  PEP  S.-.COPl, 

F/it.OO.T 

1  «  KA ■ f APS 

F/n.OOl.T 

1  S  FA,  TAPS 

SA-F 

IT'STaR^.  »3  * 

SA.  F 

lA'C  P.-  S 

T‘  L 

CDf 

TXPLC 

,? 

TXri->C 

t7 

TD.. 

TV  A 

ISTCKT 

SLA 

AV 

ISTCNT 

TMr, 

STARCS 

TD5<LC 

»INSTA,RC 

Aixn 

4»lf'.STARC$ 

CD'S 

Txni.c 

0»IKSTaPC  S 

ad-f 

AM 

C/hLT»  CPC/Jvp, tests 

TAV 

OONEKEYS  C/hLT»STARC+4+P*ISTCMTQC/JVp»TEST$ 

TM« 

2P/1T27B8/1T47 

ETO 

SEARCH 

TDi-. 

SEARCH 

TEST 

TMA 

» INSTAf-C 

JA7 

iviEXTS  IGNORE  STARC  ENTRY  IF  DATUM  NO.  ZERO 

TVn 

IDBLFS 

TDXLC 

0> INCURS  IR  =  -DDR  OF  DATUV  NO.  TABLE 

RSEARCH 

rptan 

ns  IS  THIS  OATUN  NO.  ALREA^'Y  IN  TAeLE< 

TV.;) 

1»  I''CU- 

JA£F 

FOU-DS  YES  - 

NTFOU'''niNCaR 

SEARCH-?  NO  -  FORM  P’EW  INTERNAL  DATUM  NO. 

TV'.' 

0/7777T39 

ETP 

SEARCH 

SCO  , 

24$  REPLACE  D  iTUV  NO.  IN  STAPC  TABLE 

td;v 

fINSTAPCS  W.  INTERNAL  DATUN  NO. 

TA. 

.INCURS  EXT.  DATUM  NO.  TO  CATUV  NO.  TABLE 

i 

NEVT 

tmo 

DONEKEY 

1 

AIXJ 

Qf  I  ST  -PCS 

i 

1 

« 

GO  TO  **TEST**  IF  PORE  DATA  IN  STARC  ARRAY 

1 

FI'-I 

T^.v' 

1 2/172-$  END  OF  5TAPC  TABLE 

1 

ETO 

SEARCHS  STORE  SIZE  OF  DATUM  NO.  TABLE 

SCU 

24$  IN  lASIZE 

1 

TO- 

lASiZE 

TDA 

SLA 

1 

AD 

AV 

r./F- 15 

TAP 

LSTCNT  $  7  *  IA5IZE  +  b 

TV  . 

SAV“ 

TDxi.C 

.2 

TD-iPC 

.7 

1 

E 

aff:  n 

$ 

1 

EV"  TAC 

c 

FTi\ 

rf  torn 

% 

E-  « 

Sl'M  OUT-.'-E  EA,  T  (C  TcX  ►';TfiPC»  IrFDr  CfiRDS 
T!  Fr,sTO^'  ?TA  C  (l‘'n)  .  C  T-.(  (?7)  5 

RE.  Ii  ’IT  tape  in,10,r:  T.-uCF)  .  ST^.PC  (  T  )  ,  STf  PC  ( '* )  r  S7ARC  C  5 )  «= 
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1  - 

PC'  mT( 

4  1  •-  .  F  » 

FQ.  -  »FF.'  )•? 

,X  1  = 

1  - 

IFI  ,T 

(’’)  )F  ( 

'-  .c)-vu;  10  .■■■  1 

IR(  'rF 

!  u  n  , 1  , 

c , 

/<  P  1  ■  F 

1  ri  ■  T 

' F  - ,9C  1  T 

C„.  1 

FC .  aT( 

1 1  *-'0 

PUT  cA ,  A  -  <^tat:cn 

CAR'S/)S 

i'.  P  1  1  F 

TRC'  T 

.'•SCvF  ^ 

Si.CF 

FO-  AT( 

r  .3H- 

TA»3;-  .P.-LATITUrF  .4X 

fCHLCNGlTlTEf 4X»cHELRVATION/)$ 

IH-  =1- 

s. 

51 

avRxTF  ‘ 

TPU7  T 

RE  5  »SCi  3»  C  TV  n(P) 

rSTA.PC(3)  »STARC(4)  »STARC(S)S 

sec  3 

FflF  AT( 

'hir.iAA. 

?X»F‘-'.5»4X»FC!,5»5X» 

F6.0)S 

cn 

o 

— < 
o 

■  IP 

?i,  NCi<'’D=>’' 

31  RETliRN-t. 

start  TAC  $ 

P  HFr-jD  ^/Ei'O 

ENO  TAC  S 
ENM'  5 

SU  II^OUT  t  ivE  STARTER  (HD.-  6  ,  CNTWD  » >' 1STS6  » TO  ,  DT  f  TF  »  H ,  XK  t  XLO ,  AXN » HX  » 
IP  JTFL»  BSH>  »N'C0DE.CR6l  A^ORGT^'^PEFCA^RFFT^'^  ^BMX2»EFLA'G,  IXYRr 
XAXR)$ 

DI-  E'MSIDN  X5STSC-(q)  rHD;  6(24)  f  CNTWC  ( ?7  >  »  AXN  ( ?  )  »  HX  ( 3)  pN‘CCDE(3)$ 
01.' FNSlOlv.  CbTl(7)»  0UT2(6)»  0UT3(4)  $ 


♦  STARTER  READ'S  THE  FIVE  CONTROL  CARDS 

*  Inputs  u  bit'l  a'Len'ei'ts  and  control  parameters  for  the  run 


N  =  0 

READ  Input  tape  n.ccr. (hdn6(I) »i=if lo) » (hdng(I) » i=ii»2n)s 

CCS 

FOR  AT (LOAF)  $ 

READ  Input  tape  Nf  CCR1»  T0»  DT»  TFf  D  r 

XM  $  CARD  3 

ccri 

FORMAT  (6E12.F)  * 

0UT3(1)=UTC.0UT3(2)=TF  S 

0UT3(3)=C.i?Cli73  (4)=X'-  ? 

REAP  Incut  TAPE  N»  CCRlf  XLC,  AXNf  HX  5 

IF  (yL0)CCP5»CCF4.CC74  5 

CARD  4 

CCP5 

XLO=-XI  0 

0UT1  (2)=XLO'  OUTI (3)=AXi  (l)COUTl (4)=AXN (2) 

$ 

OUT!  (5)=HX(1  )i7uliTl(H)=FX(2)POUTl(7)=HX(3) 
TEi  1=S«n-T(XI-0/XAXS*(1.0-AXN{1)**2)  )S 

S 

TE  -2=(F  (1  )+hX(2)+h''  (3)  )  ♦.01745329 
TE-3=6.RP31F53'6  G 

$ 

Cl  3 

IF(TEM2)GT(TEM3) fGO  TO  CLl  S 

XLOcTEN  2? 

GO  TO  CL21 

CL.1 

TE->  ?=TF'-'2-TEM3H 

GO  TO  C  3  <f 

CL  21 

HX(2>=F  (2)'^. 01745329  ? 

HX13)=<  (3)^. 01745329  S 

AX  v(2)  =  ■XN'(?)^.ri74532v  ? 

CL  2 

TE-i:  = 'XN'li  )^C0S(.-iX(2)  )  $ 

TE  ■  *=  =  XN  (  •  )^RIN(rty  (2)  )  S 

TF-*"  zTEMJ+SI-.  (HX(?)  )*SIN(f  XN(P)  )!1. 

TF  ^rCv ‘^(HV  (3)  )  S 
TF  -z-T-N'O  5 

TE  ''=T-  1  *TFf  a=t‘'=^lN  ( '  VN  (?  )  )  T 
TF  1  z-^FWjvCO'  (AXI.f?)  )  S 
AXi  (  1  )=  F’-'U  AX'  (2)=TEV‘'  $ 

HX(  '  )=T  F:  >  X  )=T,-  7T  -X(3)=TF.-F  S 
CC  -4  OilTPCl)  =XLC  ■CUTR(2)=AX  .  { 1 )  i;CUT2  (3)  =AXN  (  2  )  ? 

0UT2(4)=HX(n(ICLT2(F)=HX(2)'I0UT?(6)=HX(3)S 
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HFm  I,  'UT  TAP.-  ,\,CCR?f  IPNTFLfCFGCfipCl^PTKfC*  TW.Ml)  »CNT  r(4)  » 
EFtTGr  a'  STSF(l)  t  REF" /in.  EFT, ‘  »i-C(  rE  .  I  vyR  »  ABFN^y  ,  ( X ISTSG  ( I )  » 1=2 » g)  » 
AP  F 

Cl  t  2  FO.-  AT  (  ■  ]  »F  fF-  ,0f  Ifil  fF3  ,C  F -■’,0FF4.CFr9.nFTI.lFlPFFF,'^» 

hF  .  F  i-  .  P  )  T, 

CUT1(l)-OPfa  A+  ."'6T  /14  n.C 
aPiTF  I  TPUT  T  PE  .  TrAGFt  ® 

Tt  'GFi  FO,-'  AT  ('"H7i,f2P  •  FA4t-. ''PPiT  PriEfllCTlC:  AN"  STA'''IO'  LOCATO  PRCGRA^/ 
/)  ! 

IF(C.\T  (1)  )E(  ■•-IvK)  fGC  TO  TP  AGE-*  ■?■ 

i-.RiTF  -  I  TPUT  T  re  TFAGE2  <P 
TPAGEP  FO--'  AT  (FHlt  f44.i  f14E?IWLLATI0N'  Rl'N//1  f 
GO  1C  I'aGE  f 

TP  AGE  *  WRi  TF  .P'TPUT  Ta-FE  F.  *  TPAGE4  f 

TP/GF4  for:  ATCRHliiF^GAFaTH'IFFEREP'TIAL  CORRECTIO^  PUN//)  % 

Tr-AGER  l^■RlTE  >•  TPL.T  T/PE  FfTP-  GEE  $ 

TPAGE-  FO,;  AT(?HlUFllh  INPUT  I'ATA//)  H 

WRiTF  xUTPUT  T,  RE  5f  TPAGETf  OUTKDf  'iUTPCDF  PUT3{1)_'P 
TP/GE7  FOR  ATiPHlDFPXFRHEPOCH  0AYFFiF.HF7X f3Hi./0 FF15.fl»7XF7HDtLTA  T, 

F 1  “a  «  A/  )  fS 

WRITF  vUTPUT  TiiPE  5f  TPAGEFf  0UT1(2)f  i'.UT2(2)f  pUT3(2)  * 

TPAfeE-  FOR:  ATi  i>H10f9XfQHAXIS-i'  M  f  FIF  .  P  ;  7X  f  31-IAXN  f  FI  5. 8 » 7X  f  7HT/n-T/F  f 
Fj-^.fi/)  $ 

WRITF  ..UTPUT  T.  FE  Sf  TPAGE9r  0UT1(3)f  0UT2(7)  S 
TPi  GE-  FOh  AT('1'H1Uf9Xf9HECCEN-TY  f  F15  .  p  » 7);  f  3HA YN  fF15 .8/)  i 
WRITF  .UTPUT  T,FE5f  TP/’GEIGf  CUT1(4)f  !'lJT2('i)  $ 

TP  GEIOFOR  ATiPHli,  f9Xf9HIivCLI:'  f  Fi  F  ,  P  f  7X  f  3HHX  fF15.8/)S 

WRITF  i  !  TPUT  T.  PE  5>  TPAGEJ  1  f  CUTKEIf  OUT2(5)f  0UT3(3)  S 
TPA6E11F0R  AT(?H10f9Xf°HNEAN  iNOC^  fFIB.P  f7X  fSHHY  fF15 .8 » ?)<  f  7HD1  AN  f 

$ 

WRITF  I’TPUT  T'FE  5f  TPAGETPf  C,UT1(F)f  0UT2(6)f  0UT3(4)  $ 

TPAGEI  2F0R'  AT  (  ^H10f9Xf9HARP  PrPG  f  Flp  f  P  f  7  a  f  3HHZ  FF1.5»aF7XF7HWPI6HT  r 
FIR. 8/)  ? 

WRITF  'TTPUT  T  PEFf  TP  'GE13f  0UT1(7)  $ 

TPAeE13FOR  AT( ’H10f9Xf9HR  ■'  N'-'CE  fFIE.P)  F 
RET:.RN  F 
ST.i-T  T.'C  F 
PPL  K  W/iiOOOuPO  S 
EMIT  TAC  F 
EN:'l  F 

FU-CTIo  CALF  (UZfRfXNPER)$ 

♦  CO-'PUTPR  HEIGHT  Il>  '  TE'-5  APCVE  CBL.  TE  ^ARTH 
UZS'  R=L  *♦2'"- 

CALF  =  iVPEF  *  (F2*U7SPR-UZ5PR**2'i<Fl  -  1.  +  R  )  $ 

RE  ri  RFH 
STAPT  T'CF 

*  EARTi-  FL'TTETM  P  CONSTANTS 

P  F"  F/,lft8F‘’17364E-4  S  (2/2)  *  F**2 

P  f'  F/..3369.'67t:736.-2  *  F  +  (2/2)  *  F**2 

PA.-E  F 
E^'l'  TAC  <f 
EN  R 

SUP'^OUTUmF  TPI.  T(IofFfSIGVAfXNFfXK(  PGf  ATI0)S 
TA8i.ED£R  ‘JFrN'E(l32)  = 

IJr-;* 

IF(‘^-HF  '.FilSODlFlFF  >1 
ino  2  1=  fISPfS-* 

IF{a— H'—.-Ft..))  ■*f3f'‘5 
-CC  "lUi  F 
R-TR  • 
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’  T^'  (J-  )  L'  AL  ;  »  5*  Ff 

L^iLT  UTpi  T  I  'PF  »  i"»  H  ? 

I  F>  f.AT  (l4  in,':TIT'uE  CF  .£12.4)  $ 

ST'i  T  1  C«- 

TF-4  C/I-LT.i  ABCD  C/-LT.4?: 

JVPL  ft? 

RU  .'HT  ? 

JWl-  ?(? 

LA :  CD  A/AI.TIT’  DE  'ELt'-  ROOOO  ^ETEfS  ? 
ENOTAC  ? 

<=H?- H  1=1- (  J ) -ESGl'.  E  ( J-? )  $ 
H2-H=HSFME( J)-h? 

SIGf  A=h''MH»HSGi  F 
HMH 1  =H-hSGi‘'F  ( J-?  )  $ 

SIG:- A=SIGN'A-KH.-H1)*(HS6FE(J+1)  )  s 
SlGVA=STGN^A/H2rKiS 
Xf^  E=H2i-  H*HSGF.E  ( J-1  >  ? 
XKilRG=(rlvHl+HSGI'E(J+2)+XME)/H2iVHlS 
RATIO=E'.<P  (SIG  A)S 
IJ=1  ? 
ftRETURN  4 

stai-t  tags 

HRGME  F/BO.OE’S 

F/-7,0?il  0F87S 

F/. 1317' IF-,  25 

F/ftft.Ot ‘S 

F/-7c6i'322aiS 

F/.12a7'=6E-2S 

F/fifi.Oh'^S 

F/-P. 15382235 

F/.118625E-025 

F/A5.0E'*S 

F/-8.75='6457$ 

F/.in8476E-n2S 
F/7(].0L'’S 
F/-c,4i'’4P43S 
F/.a«31 
F/7=,0t  5 
F/-1  n.l'-3371S 
F/.CH13 '58-35 
F/pn.OE" 5 

F/-in,c  -445;''5 

F/.77g5"E-35 
F/A3.0f-  '5 
F/-1 1 .« '92295 
F/.'’Pne,r'E-3B 
F/'JP.Oe ':’S 
F/-1.?.c'2B575 
F/.FPlft-E-a"' 

F/uc.Ot"'? 

F/-14..."7187$ 

F/.-pll-F-?- 

F/tn().i'-?i: 

F/-1ft,"  357‘=S 

F/.r44- 

F/1  !  ft.'  3? 

F/-1ft,- 1 lOulS 
F/.meft  t-2' 

F/iin,i  '35 
F/-1ft, 8436175 
F/.136P=E-25 


F/H!S.OF?$ 
F/-17.h?S044$ 
F/.:fl2-  b-2'^ 

F/1  “^O.u  ^•5^ 

F/-1  P,2'''15G’9- 
F/,2?q??F>2-> 
F/1?S.C -3s 
F/-1P, 72545  IS 
F/.'’75iH-'E-?S 
F/13n.i..  -  39; 
F/-iq,r  23ils 
F/.321e'’F-2? 
F/13S,i.-3S 
F/-iq.5  31C3S 
F/.3fte'^  F-2« 
F/ltin,fi"3S 
F/'-iq,r-20q52S 
F/.4l4h5E“2? 
F/.l45.0!-3f 
F/-2n. 125377$ 
F/.4ftl4.1,E~2S 
F/1F0,0-3$ 
F/-20. 361461$ 
F/.=n7q7E-.2S 
F/155.0F3S 
F/-20. 5=5472$ 
F/. 55472-2$ 
F/150,(.ir:3$ 
F/-2n, 612337$ 
F/,6n74'3E-P7- 
F/165, 10-35 
F/-21 ,023537$ 
F/.64124E-2$ 
F/170,bi-3S 
F/-2J .1‘ 7902$ 
F/.6682  E-2$ 

F/ I 75.0 "3$ 
F/-r-l.3  ■•5P66$ 
F/.6qi5TE_2$ 

F/1 =0.023$ 

F/— 21 ,434534$ 
F/.7n41 lE-2$ 
F/I05,ir"3$ 

F/-P1 ,521055$ 
F/,71  66''9q9F-2$ 

S’  /  1  C-  A  t » ^  ’Jl  * 

F/-21 ,655493s 
F/.'- 291  =E-2$ 
F/3°'^,<.  3$ 
FZ-^I.E  7622$ 

F/.7417'iR_2<, 

F/2nn,i,--3$ 

F/-21  ,  =  -’7791  $ 
F/.754“‘JE-2«- 
F/2in,i,  ■  3't 
F/-?2,1 -4273$ 
F/.  777?  •’6-2^ 
F/?2n,.'  3$ 
F/-72,, <->90725 
F/.VaSF.-'r-P' 
F/2<6,  3« 
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F/-??,  r  -'q^U  .? 

F/. 

F/-‘-n, 

F/-':i.  rP-'9 

F/.  c?.  t->' 

F  /  >  "  0  ,  !  3 '? 

F/  —  f^1i+5 

F/.r.pg,  -_5<v, 

F/3fin.,. 

F/-''3. ^-’177^5; 

F/  •  45^  “V*’ 

F/330,  ti 
F/-;  4,;i  af-l'S 
F/.lonv^F-l'- 
F/'-O.,  ?>? 

F/-:^S.t.'7P47s 
F/,in54  ’E-X-^ 
r/4rn.o"33; 

F/-?‘5,r374?'  S 
F/,  1  137  '-I? 

F/4'^fl.  .1-3? 

F  /  -  '  ft  ,  S  6  F  ft  7  ? 

F/.1234“E-1’? 

F/ftOO.  ',t“3? 

F/-E7.  'OnftBs 
F/.133?' b-l= 

F/ 3  P  0 , 0 • 3? 

F/-?P,;-‘'6017S 

F/.:R3it’-l.S 

F/q0f).uT3? 

F/-3U4-747<=S 
F/.2P13-E-113 
PAG^^  ? 

EN'P.  TAC  ? 

ENP.  S 

SlJRFCU  i  ■  N'F  X'EL(XELlrXAXS»XlfX2fX3»Xti  ,X5f  Xe)? 

OI.  EivSi  'N  Xi-Ll(7)f 

XL=VFLi (1)S 

ArXFLK^)  S 

8=XFL1C’)  5 

C=X'^H(-')  ? 

D=XFL1 ( - )  ? 

E=XftLl(  )  ? 

F=x?H(~)  ? 

RAi'r.OI  •AF.^ro???  s 

P=(,*n  +  E*E  +  F*F  ? 

ESP::Amii  +  r*P  +  C*C  9 
AX=^/ ( 1  .-FS'  )  5- 
EX=SQRT-(ES  )  > 
aX=VS-'TF(- )  f 
WY="/S4-TF(  ) 

a7='/Ss’'TF(  )  ' 

XvprRiir: ’FCl.-i'/iHAZ)  <? 

XKX=-'y'i  'X^7  $ 

X»  YrX\x  *  .  '  ? 
x^  Y  =  .vX/ Z  ■■ 

X>x::-X  *  7 

XN7=n,  * 

AX=it'XNX+  *-Y 

AY=A»  X‘X  +  Y  +  C*  .x’7$ 

X  1.'  zA  T3  F  (  u  1  r  /  Y  K  )  ‘' 


E-2b 


<r 


IF(  A  vl  ■ 

+  >  .  14 
' IF( .  'O'  ■  .4,  5 

■'Xi'  rX-.  +  >  .*?. 

X'A  ~X>  F/l 

XKi^  =  /i-}' ■  (  AS F  i  .;t\Y  )  ^  f 
IF(M.  Y)^»Fr  S 

''IFCXI'X) ’.Pr  9 

7XM.rXN  +  3. 14  j '=q?c;‘^4  9 

60  T<!  5 

<  ,*?,141SC265'J  - 
GO  '  0  c 

*IF(XNX) ini9*q 
1  0XNC  =  3.1'Jl‘59a654  -  X‘ 0 
cxMO=XNO/RAD 
X1=AX*a 'XSS 
X2=FX 

X3=A5Ir  •(XN7)/.-,A0 
X4=X1./I<\',  -  XNC.  -XV;C 
7?IF(a4)?.- *?1»21  J 

PfX4=Y4+"~0.  $ 

GO  TO  ;-7 

IF(X4-2''0,  )38»3P»25  S 

^FX4=X4-:'-'-fi.  s 

GO  TO  2' 

X'-X5=''‘'i0 
Xf=y;vo 
return 
EN'  h 

SUi-<-'CUT'lvE  YZSPS 
XY7SB»  GIv-W  A  BAR#  H  PAR 

CCivlPUTES  ’^N'TEKMEi  lATt  ORFIT  PARAMETERS  Ai'  r  SATELLITE  POSITIONS  AND 
VELOCITY  VECTORS 

equivalence (RKSTO fRKCNT (2) ) » ( HYI # RKCNT ( 11 ) ) # (HZ  IfRKCNT(12) ) t 
(HXl.RKC:  T(10) ) # ( AXI #RKCVT ( 7 ) ) # ( A YI # RKCNT ( 8 ) ) * 

(AZJ  #RK  ivT(o)  )  f  (AYN»AX.'  (2)  )  #  (HYrHX(?)  )  »  (HZ#HX(3)  )  » 

(WYjV.XC")  )  #  {\.'.ZilvX(3)  )  r  (AY#  AX(2)  )  f  (»Z#AX(3)  )  r 

(X  ' Y,X  Y  (2)  )  f  (VfvZ#X'  X(3)  )  »  (XNY.XNX(?)  )  r  (XNZ#XNX(3)  )  # 

(AY'  If /-  ■  M  (2)  )  .  (UYfL'X(F  )  )  »  d'Zfl  X(3)  )  f  (  VY  r  VX  ( 2 )  )  #  ( VZ  #  VX  (  3 )  >  # 
(YfX(2)  )  f  (Z»X(3)  )  #  (YnO'i  fXDOT(?)  )  ,  ( ZHOT  f  XDOT  ( 3 )  )  # 

(X  I'Yf 'a'UX(7)  )  ,  (Xil.Z#  XNUX(3)  )  f  (EfvY  #  EGX(2))  , 

(Ek7,  E7X(3))f  (COSPH#  SIN'PH(2))f  (CAPYr  CAPX(2))f 
(CiPZfO  PX(3)  )  .  (RHOYfRi-OX(2)  )  #  (PHCZf  RHOX  (3)  )  r 
(X2''  nSG,XlSTSG(2)  )  »  ( X3RCSG  #  XISTSG  ( 3  )  )  #  (X4THSG  #  XISTSG  ( 4 )  )  » 
(XPThS>-fXlSTSG(5))  .  (X6THSGf  XISTSG  (6)  )  #  ( X7THSG » XISTSG  (7 ) )  f 
(XPTHS^-.f  XISTSG  (8) ) »  (X9TH5G#  XISTSG  (9) )  #  ( A5UBY f  ASUBX  ( 2  ) )  f 
(ASLBZf  ■  SIJFV  (3) )  #  (DSUPY#DSUPX(2) )  r  ( DSl."-Z  # DS' ’BX  ( 3) )  r 
(XI_SUBY.XLSUE.X(2) )  f  ( XLSUBZ  f  XLSURX  ( 3 )  )  #  ( ESUBY  f  ESUBX  (2 ) )  . 

(ESl.PZf  ESUPX(3)  )  f  (SSUPYrSSUPX(2)  )  f  ( SSUTZ  »  SSUBX  {  3 )  )  f 

(ZSl  PYf 7SUPX(2) ) # (ZPUPZfZSUBX(3) ) f ( XLSUYH r XLSUXH ( 2 > ) t 

(XtSUZHf  XLSUaH(3)  )  r  (AC-  TV»ArOTlJ(2)  )  •  (  A.  OTW  f  AQOTU  (3)  )  f 

(ASl  YT. f SUXT(2) ) » ( ASUZT f ASUXT ( 3) ) f (PSUYT»DSUXT(2) ) f 

(PSi  ZT.  SlixT(3)  )  f  (a'  Yf  aLX(2)  )  f  (XLZf'/LX(3)  )  f  (DELTY.PELT^  (2)  )  f 

(DELTZ#  r.ELTX(.))f  (IPPTf  C‘TKC(4))f  (  GSTOf  WST0(3))  . 

(Hi  YV»  LXv(2))f  (  ELZ'-f  LlX'/(?))  f 

(Ra'  fRS'  PA(  ) ) f (RY  .fRSGeA(3) ) , ( eSUBU r RSUB* ( 4 ) ) , (UXO f USUPA (2) ) » 

(UY'  fU''!  PAC'')  )  ,  (USU-^UfLSUPA(4)  )  r  (  RCPTV  r  RCPTU  (  2)  )  f  (RDDTvf 

HD‘  TU(3) ) f (RDTANfRoBTA (2) ) f (RCTYNf RPOTA (3) ) f (ROOTVf 

Rn.iTA(4)  )  ,  (UCTa'  ,ui;,0TA(2)  )  f  (  UPTYN  f  UCOTa  (  3 )  )  f  (UHOTUf  UDOTA  (4)  )  r 

(R,iPTU»'^D0TA(4)  )  f  (lAXCf  stark  ),  (lAXEf  STARE)  t 

(nGFfCARD(2) ) f (PDGRtCAPP{3)  )  t 


$ 

S 

f 

9 

4  -  ECCN 
$  =  INC 

4  =  MEAN  Ar  CMAlY 


S  =  PERIGEt 
4  =  NOrE 


'  AND  XL  AT  SOME  TINE  T 
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EP.  1\/Ai  -i-CF  (i  L  .  A{^)  ,rLTAX)  *  (ClTAA  (’)  rTLin)  f  ( OLTA  A  ( 4 )  »  PLTLO )  , 

(  I  TA  (~)r  (L  r.)»  (Ti-TAACf.),  rLTl')  “ 

CO  'Ct  r,  TFi  >  ■»  TM-P,  XLi  f 

-y,  ,  .,r  '  iC'  i.-'T. -kA.  s  i,crsi»Pl :.o» 

CO-  .A  rCO.  »C'  •■T5»-S^rP»>5»''  y»yNVf  '■■y^  » 

xf  rUOfPCl  -C»COfEO»FST  r»F';OS'^»’r 

SI  '  ,RT-‘SCmI-  X».  >  ♦XrMTOTtRr'  TfPTAjRV'  OT» 

XI  t  f  t  *.  IJ  »  U7i'Th»  i-C  I  X'^USOR »  TS  r  Cr  OCf  '  V''?»  ZO'/R’-f 

RS  R.  -Ri'l.  If  f'Xf  '‘LAIf  XLOaP#  RVffTf 
OTRTfC  -^.-nf 'TAC' fCb^CCfSlRP-  f  CaPD#  CAPCf  CAPS* 

CAR  •  fO  TfP  IRi  f  XCVCTf5li\T:-fCCSTHf  TKTA  fTXYZf 

khi  fR,  1  fS-LHfTER.-Cf'xbTOf  TiMi'fCSI'PIf  yL^^DT■■  f  XINCL  f  CUT  '  A  , 

Rl-ii'i  fSi  f  ui-' SDL  >  YLGk  f 

RC.  TfBSCivTf -ES  tPfEFCNTfLSTArfGPTEP»FFL''Gf 
riOC'-Tfi.  CA'TfXlSTSGf  PS.  X  f  Ok  CT?  r  ETPFG  f  TI^’ J  f 
CSu  fFo  FTf -'SU  -y  fCSUPXf  XLSUFXf  ESUPXfSSl  PXf 

7S1  -Xf  xcSUXI-  f  AbOTUf '‘DCeLf  ASUXTfPSUXTfFACTPfOTYPEf 
XFivOTS  f  'LX  f  ELTX  t  A?CR  fUFUO  f  FSUhA  ,  ROVA  , 

USii^A,  'EN'C.  f  SSf  CPRAif  OBPAM,  f  S-iTELf  STAlDf 

XLii.'RA*  ALPt-Af  CELTAf  ITIVESf  RANGEf 

Of  r-RGC-  f  XKAEf  R2PPlf  XK  f  "^MSf 

SI.  'TfT  6RCfFLF55fV':C3fSIGSfS(3P:'!Jf  XkUf 

THi  '  Tf  F  f  XKEf  RHCOf  CL-Of  XCFPRk.fXKk,PRVf 

SIXPQ,-  pr;.  fON't-.PIfR/  OYi-vf  XN'PEPfLINEf 

OFfvTf  F^AG4f  VFLAGf  XP.SSf  TS»  DCf  VDATAf  ISTOPVf 

RDi '■!  b  f  P  ''OTA  .  UDi  TA  f  RCDTi '  f  RPOC  T » EXCR  f  EYOi  f  RCUPE f 

XA'l,A?2f  'BN'X2fG  '.TElf  GATE? fXJAYEf  SUN'? fRCt.T2f 

LSTCNiTf  ^PHAfCP^  AfSDFLfCCDELf 

ADEL  f  BbEL  f  CDEL  *  APCEL  f  FI  EL  f  hCELA ,  HDELB  f  HDEiLC  f  HDELX  f  C  APXX  f 
ARAYfXT\'ECfYTVECfZTVECfPXSS»PYSS»BZSSfPCOFfPABfPIGfBBUFfCVERTr 
AVFCf  X  'ECf  YVFCf  Z'/ECfASIG5f  lAXDf  IBi-UTH^ 

IST'-.RCf  PLyV  fRhCVfAGDLVfCfCCf  IMOVOPS 

ni'FFSi  "IM  0(?)  f  AXM(5)  fhX(3)  »FRAC(2)  fKX(3)  f  AX  (3  )  ►  A  (2 )  r  XN  X  ( 3 )  f 
XNX  (3)  f  XA'I  (2)  f  VWCI  F(2)  n UO  ( 2 )  f  bX  (3 )  f  VX  ( 3)  >  X  ( 3 )  f  X00T(3)  » 

X  X(3) f  F-X( O  f 

CNT-n(?-’)  fSTACL  (6)  fOPSCD(6)  »SIkPH(2)  fCApXO)  fRH0X(3)  »TxYZ(4)  f 
TFR ■ S(-=) f  vST0(?5) f TIFTP(6) fCSbPl (F) f yi5TSG(9) f  ASUPX(3) f 
OSUBXC'If  XLSbRX(3)»  CTPT(P)f  PLTAA(6)» 

ESii-XC")  fSSbbX(3)  f  ZSUPX  (3)  f  XLSUXH  ( 3 )  f  AnrTU(3)  r  ASUXTO)  » 
DSl.XTCi)  fXi-X(3)  fDELTX(3)  fPSI'PA(4)  »l'5UBA(4)  f 
R.<=T0(‘’9)f  hXI(3)f 
RKC.'T(R  )f  VDAi  AdurO)  f  DLX'’(3)f 
FJ..FT(7)  ,Ak  ■  Y(.')  fXTVEC(F)  fYTVEC(t)  f7TVFC(6)  r 

RD.  TbCO  fRi  <:TA(4)  fbrCT.'>(4)  fRH0I.T(4)  , 
flXSc(g,)  ,(.Y5C(e)  fPZS'^  (4)  fBCCF(?(  )feAP(7>f 
8IF(fi)  f'^Bl!F(?6)  fCVE7T(?B)  f  AVEC(3)  f  XVEC(F)  f 
YVE''(6)  «ZVF_C  (F)  f  AS'Gl  (4)  fC'FXX  (3)  f  CAPD(7)f 
APF  (3)  ..'-PF.b(3>  fCDEI  (3)  f  APbEL  (3)  fFl  EL(3)  f 
HDkl  A(^)  fpriFLPC?)  f  hDELC(?)  fhPELX(3)5 

Pr  (  -  X  I  I**?+HZI  **  )  S 

ES-  rl  .1  -  (  A  ^  T**^+AYi*>*-?  +  AZI**2)?- 

A=‘-/FS-  RT  =S  FT(.id)  )  « 

XkziSOn  l*y  fc)/=ORT  (A»*3)3 
RTR-SG<  (,')<? 
f.n  11=',  ,3?; 

.\XiT)=  ni)/R-. 

C  0  I  =  A  / 

SI  I=S  T  (1  .n-'CS  ■7  =  51.  IS 

xi'  xd-  '  )  /X'  /•^x:>Y=x-  x*v%z.  v  Y='  x/y  zs 

X'  x= {-*  Y) ♦  7? 

AX  ■  =  XT  •*  X  X4  ”YT  *  Xi.YS  GET  covp  OF  '  OC  N  RAR 
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AY  T=A  .■*X  '■4Ai  it-X  v  + 

IF(>I.X(  )  .3»-.  $ 

XNT, 'Fs'- '  +  AT  I'  i  ■•NY/'- '  X  >•* 

GO  TC  7 

iF(  /i-Y)  =»Fni  i>R*^S 

-  X^  U  F  =  4,7:*  23''F97fi  X;  OCE  =  (3/2)  *  PI 

GO  TO  7  ' 

XN'o;'F=P  ov?  ‘ 

GO  TO  7 ■ 

Xh'O  E  =  A~AN  (XN‘> /XNX)'»; 

XNorF  ( .1 )  =Pk  '  -PR  i  •XNCf.-F  ( 1 )  )  5 

7  U  =  RKSTO  (3)  -  XNO'E  *  SIGI' F  (l.f7)  $  XL  +-  XNOHE 
IF  (SEi-'SF  LIGHT  I)  13»12  ? 

12UO(.l)=L'’- 
17  SENSE  LIGHT  l  S 

UO(?)  =  U  3.  SOLVE  KEPLERS  EQUATION  FOR  E  +  OMEGA 

IF(U0(2)-Tv.CPI)  .15»15*14I 

UO(F)=l  0(?)-TWOPIS 

GO  TO  1,-3s 

E01.=UO(2)? 

00  lFl  =  ii7fiG 
COSEO=COS  (EOl)'fi 
Sli'iFO=STN  ("01)5 
E02=AYiW*COSEOS 
ESINE=(SIME0*AyivI)-EO2* 

E02=lt0(  2)+E?INF$ 

IF  (ABS  (EOF  -  EOl)  -  .000001)  CNTRD2»  CNTRn2»  17  $  TEST  CNVR6NC 
17E01=E02  T 

CONTINU!^* 

start  tag  $ 

TMA  C/HLTfCWRDUi  C/HLT»5S 

JMPL  6* 

ENDTAC  5 

TRD2  ECOSE  =  SINEO  *  AYKI  +  COSEO  *  AXNI  $ 

R=  ( 1 .  O-FCOSE )  * aRAR=A/R..RTES0=5QRT  ( ESQ )  $ 

XLGR=1 .  '•+RTESQ  ■  COSU=ESINE/XLGR$ 

SItvU=(  (SINEO-AYNI)-(AXM>t>COSU)  )*AR5 
COSU=(COSFO-AXM+AYM*COSU)*AR3- 
DO  20  I=1^3S 

UX ( T ) =S INU+XMX ( I ) +C0SU*XNX ( I ) $ 

VX ( I ) =Cr  SU+XMX ( I ) -SINU*XNX ( I ) S 
20  X(I)  =  UX(I)  ♦  RS  COMPUTE  POSITION  VECTOR 

RvnrT= ( rta*sqr- u) /r? 

RDOT=(R''DOT*ESINE)$ 

RVOCTrRVnOT^RTESQS 
DO  21  1-1,35 

-1  XnOT(I)=  VX(I)4RVD0T  +  UXd)  *  roots  compute  velocity  vector 

RFTUR.  S 
START  tag  S 
RROR  RUNOUT  S 
JMPL  3  5 
I  F/3.141-‘326?3  5 
OPl  F/G.287)PF3''6  S 
I0V2  F/l .57-796326  S 

.  -.RD  A/KFPLE'^S  equation  f  OT  CONVERGING  FOR  F  « 

ENG  TAG  S 
ENOF 

SUFPOUTTne  SETI (IAXT,I)S 

4QJ=J+1  $ 

IF(IAXG-J)55,51,50$ 


E-29 


$ 


GO  TC  ^ 

‘^‘=STA-  T  T^C**: 

jf.>p  CCFFF,T?TOb';$ 

REF‘  UT  COtFF.TFTCP':'? 

PAG^  t 
END  TAG* 

«1RETI'RN  * 

ENM  S 

SUPI-OUTINF  -EAi.  (IPAGE)  S 

STAFT  TCC 

SA-F  hnNF.»0i.01PRF.HLNG  $ 

SA-F  CHEL»0-01PRn.ChEDS 

ENfj  TAG  $ 

TABLEDEF  HD!  G ( F4 ) ► CHED ( 1 5)  S 

WRITE  Ol'TPUT  TAPE  5»  6 » (HDNG( I ) , 1=1 » 10 ) *  WRITE  1ST  LINE  HEDING 

6  FORi-  AT  (2H7n,3X  »10AP)S 

WRITE  OUTPUT  TAPE  5 »7 »  (HDNG ( I )  .  1=11  r  20  )  » IPAGE»  (CHED  ( I )  *  I=l‘f'l5) $ 

7  FOR!- AT  (2H10#li  A8,6M  PAGE#  lfi/2H10/2Hl  0  f  ISAfl)  $ 

RET'  'RMS 
EN!)  « 

SURROUTTNE  PRIKT(RKSTO#XLAT#XLOMG»H)  s 
AH  =  H  /  1000.  $ 

WRITE  i-UTPUT  tape  5*6.RKST0»XLAT»  XLONG#  AH  $ 

6  FOR  AT  (2Hl<i»4(F15.7,5Xt  )$ 

RETl  RNi 
EN'  S 

SUPROUT  NE  PRI  T0(STARC»TXYZ  » RHOl # CAPA #SNLH) * 

WRITF  ul'TPUT  T* PE  5#6»STARC»TXYZ#RH0i#CAPA#SMLH$ 

6  F0Ri-'AT(PHlU»A8»4E15.8)S 

RET'  RNS 
END  $ 

FUi CTIGN  APROPR(X)« 

PROPFRI.7ES  AvGLE  GIVEN  DEGREES 

APR'.PR  =  57, 2987795  ♦  PR0PR(X/57, 2957795)  0  RETURN  $ 

END  5 

FUNCTIO!  PROPR(X)S 

♦  PROPFRIZES  Af-GLE  GIVEN  IN  RADIANS 
START  tags 
TMA  XJ 

JA'V  (P)+3H?- 

FS!''  TWOPIS 

OMP  (P)-l$ 

FA."  TWOPIS 

JA.-v  {P)-1HF 

TA.-  YS 

P  T  OPi  F./8.P6'’T  P5.T''6  $ 

END  TAG  ■?; 

PROPR  =  Y  If  RETURN 

E0ti"VALFNCE(RKST0»RKCNT(2) ) » (HYI » RKCNT ( 11 ) ) » (HZ  I»RKCNT(12) ) t 
(hXl  »RKC’'  TClO)  )  ,  (AXI#RKGNT(7)  )  #  (  A YI »  RKCNT ( 8 )  )  f 
(A?T  .R"*  i-  T(^)  )  ,  (AYN»AX  ( 2 )  )  #  (HY  #  HX  (  ? )  )  #  ( HZ  #  MX  ( 3 )  )  # 

(WYf  *X(  )  )  »  (l,'.Z>''.X(3)  )  »  (AYfAXt?)  )  »  (  AZrA>(3)  )  f 

(X  Y,X  •'(?))#  (  a”Z#X'  X  (3)  )  #  (XNY.XNXC?)  )  »  (XNZrXNXO)  )  r 

{AY  I,.  ,.I(  )  )  .  (UY#;  X{.  )  )  #  (I'Zfl  X{3)  )  »  (VY»VX(2)  )  »  (VZ#VX(3)  )  » 

(Yr ; (2)) » (Zf X ( M ) r (Vro ' rXCCT(2) ) , ( ZDOT » XOOT ( 3 ) ) > 

{X  >  YrX  -  I  X(  - )  )  ,  (XNu7»X  UXC^) )  ,  ( YDTGP  »  X.  TGR  (  P  )  )  , 

(7  TGR,  DTC-  (3)  )  ,  (Y-TP  »XPDGR(?>  )  »  ( Z8DGP  #  XBFGR  (  3 )  )  , 

(Y  rp,.-pp(  ) ) , (ZDGR.X  GR (3) ) f (AYGR »AyGP(5) ) , 

(A7.-R.-  GP(  M  )  .  (EQY#F0.-(2)  )  #  (Er'7»EGX(3)  )  t  (HYGR  f  HXGR  (2 )  )  , 


E-  ^0 


(H/.  K,  -  RP  (  -- )  )  .  (COS'  i-*SlKPh(;>)  )  »  (CJPYfCApv  (5)  )  , 

(Ca7f.  py  (  ■•  )  )  .  (RH.  '  »R  ry  (•-))»  (PHCZ.RF.  V  (’))  . 

(X7  '  S- »  XISISG  .?)).(>  .?  SSf  XISTSGC?)  )  »  (X4THSG»XISTSG(4)  )  » 
(X‘'THSe.,x3STSG.'=) )  ;  «X6THS6»XlSTSG(f>)  ) »  (X7THSG»  x'lSTSGv?) )  f 
(X  th5i  .XISTSG  ;  ”)  )  f  (XPTHSGf  VISTSG(Q)  )  »  ( /' SUBY  » ASUBX  (  ?  )  )  f 
(ASI'RZf  sup  (7)  )  »  (LiSUBY.DSLiPX  (P)  )  f  (  CSUHZ  f  HSUBX  { .-^ )  )  f 
(XLSUBYfXLS'iPXi^) ) F (xLSURZfXLSUPXC’) ) F (ESUBYfESUBX  C2) ) F 
(ESI'RZf  SUFi'«  (3)  )  F  (SSUPYfSSUPX  (?)  )  f  (  SSUi'Z  f  SSUBX  (  3 )  )  f 
(ZRI  BYr'SHh-  (2)  )  F  (Z‘=UPZfZSUPX.(3)  )  f  (  XLSUYH  f  XLSUXH  (2  )  )  f 
(XL5U2t-'XLSlJXH(3)  )  f  (  ADOTVf  APOTU  (2)  )  f  (  ADOTW  f  ADOTU  ( 3  )  )  f 
(ASi;YTf  SUXT(2) ) F («SUZTfASUXT(3) ) F (nsUYTFDSUXT(?) ) f 
(DSUZTf  SUXT (3) ) F (XLYfXLX(2) ) f ( XLZ f XLX ( 3 ) ) f (OELTTf UELTX (2) 3  f 
(DEI  TZf'  ELT7  (3)  )  , 

(IRPTfC  TVIi(4)  )  F  (EPHEt«FFXXXX(25)  )  f  ( I  WSTO  ,  WSTO  ( 3 )  )  f 
(DLYVf  ?LXV(2))f  (  D'LZVf  nLXV(3))  F 

(RXIfRSUBA(2)  )  F  (RYI'IfRSUBAO)  )'f  (  RSUHU  f  RSUBA  (  4 )  )  f  (UXNrUSUPA(2)  )  f 
(UYf  FUSi’eA(3) ) F (USUPUfUSUBA(4) ) f (RDDTV » RDDTU ( 2 ) ) r (RDDTWf 
RDI)TU(3)  )  F  (PDTXI>fRDOTA(2)  )  f  (  RDTYN  f  RPOTA  (  3 )  )  f  (RDOTVf 
RD0TA(4) ) F (UDTXK  fUDPTA(2) ) f (UDTYM f UDOTA ( 3 ) ) f (UDOTUrUDOTA (4) ) f 
(RnCTUFRD0TA(4)  )  F  (  I.'.XDfSTARK)  f  (IAXEfSTARE)  f 
(DGRtCARD(2) ) F (nDGRFCAPD(3) )  $ 

E0UTVALENCE(DLTAA(2) fDLTAX) f (DLTAA(3) fDLTAY) f (DLTAA{4) fDLTLO) » 
(nLTAM(S)F  DLTMD)f  (DLTAA{A)f  DLTIN)  5 
CO’II  ON  TOf  HTf  TFf  Of  XK  »  THGR  f  XLOf  AXNf 
HXf  VMf  iPGCfvTFCCi.iNTFFRACFpFRTpFl-^XFSIMFCOSlFSINOF 
COSO  F  Ax  F  COI’jD  f  CONTS  f  FSO  f  E  »  A  f  XKX  f  XNX  f  AXNI  f 
XNOr'EFUFUOFEOlFE02FSINEOFCOSEOFESINEFECOSEFRF 
SIMIfCOSUfARfRTESQfUXfVXfXfXDOTfRDOTfRTAfRVDOTf 
XMUXf  X-  U  f  UZFTHf  RHOf  Xrv’US<5Rf  TSf  Cf  DCf  XOVRBf  ZOVRSf 
RS.'Rf  RRPOTf  EPXf  XLATf  XLONGf  RKCNTf 
OTPTfCi.TwDfSTACDfOBSCDfSIN'PHfCAPDfCAPCfCAPSf 
CAPXfOaLTfPI-IRDfXOVCTfSINTHfCOSTHfTHTAfTXYZf 
RHOXFRhOlFSNLH.TERMSFWSTOFTIMTBFCSUPlFXLf^PTHFXINCLFDLTAAF 
RHOCfSU"fARSDLfXLGRf 

RCNTFBSCNTFRESXnFEFCi\TFLSTACFGATE2FEFLAGF 

BOCITfO  CNTfXISTSGf  APSi-  XFOf'XTZFFTPPGFTIN'JF 

CSU‘  fFw  FTf ASUFXfDSUPXfXLSUPXfESUPX fSSUPXf 

ZSl IPX  F  X  -SUXi- F  AliOTU  F  adDEL  F  ASUXT  F D5UXT F FACTR  F  OTYPEf 

XfXNl  TSfXLXf'ELTXf  A20RfUVU0fRSUBAfR0VAf 

USUPAf  ENO'  f  SSf  OBRAIf  CBPANf  TI^Af  SATELf  STAIDf 

XLuFBAf  ALP'Af  ''ELTAf  ITIVESf  PANGFf 

Qf  :RGC'f  Xi  AEf  R2P“1f  XKf  EI^ISf 

SIiH  TfT-'GRUfFLF^5fVCC3fSIGSfSORIvUfX^'Uf 

THi  T  F  F  F  XK E  F  RHi.  0  F  COO  f  X.JN’PRF  f  XK  A  PR(>^  f 

SIXPOf'-  PPA-FONePl  fRAP.YNfXFPERfLINEf 

DEA",  F  AG4f  VPLAGf  XI^'SSf  TSf  DCf  VDATAf  ISTORVf 

RnoTUFH.'  OTAFUDoTAFRCPTOFRHOCTFEXON'FEYO'  fRCUPEf 

XMl  'A32f  ■'BN'XPfGi-TEI  fGATc2f X  JAYS  F SUV?  fRC  vTPf 

LSTCNTf'=PHAfCP  AfSDPLfCCDELf 

ADFI  fB:  PLFCr-iELr  ABDEL  fFl.ELfHCELAfHPELBfFDELCfHDELXfCAPXXf 
ARAYfXT'.'ECf  YTVECfZTVECfFXSSfPYPSfBZSSfPCOFfPABfBIGfBBUFfCVERTf 
AVFCf  X  ■FCf  YVtCF  Z'.'ECfASIGI  F  IAXDf  IB  UTHf 
IST.'RC  F  'LXV  fRHi  Vf  ADDLVfCfDCf  IVOVOP*? 

01  .FNSi  W  U'  (?)  F  AXK('  )  F  -X(3)  fFRAC(?)  fi\X(7)  F  AX  (3)  fA(2)  fXVX(3)  f 
XA'X  {^)  ,  XA'i  (?)  FyNCC^i?)  fUC('0  fC  V  (3)  fVX(3)  fX  (3)  fYD0T(3)  f 
XM  >  (3)  F  XPT'-K  (  )  FXe'‘C-R(3)  fXTGP  (3)  ,  AXGR{3)  fE'  X(x  )  ,HXGR(3)  . 

CAT  n(:^)  fSTACD  (ft)  fAPSCCCG)  fSIi  PH(p)  fC  FX(3)  fR'-!?X(3)  fTXYZ(4)  f 
TEA  S(A-)  f/>13  (3ft)  fHII  (12)  FO'-UF(?e)  f'.'STA(?F)  (TI‘'TH(ft)  fCSUBKA)* 
KFTPL  (r  )  .XlSTSo  (P)  fASUPX(3)  fD5U'^X(3)  fXLSU'=X(3)  fPTPT(P)  f 
CLTAA (ft) fCXVEPT(6) FCYVEPT(ft) fCZVEPT(6) f 
ESl'PX(3)  f5SUBX(3)  fZSUBXO)  .XLSl.XH(3)  fAT  0TU(3)  fA5UXT(3)  f 


E-31 


PI 

PI0V9 

Ci''(vV 
T.'OP  I 


ArRNT 
» ’  NPr 
(.TR 
w-TI 
SO^' 
Th-ROC 


OSl  >T(:M  ,XL-  (3) .DELTX(3) .RSUBA(4) »USUBAt4) » 

XXX>  (  1-, -0)  ..  PH  (10^4).  RKST0(7R)»  HXI(3)r 
Hr  IP.:  .  ^  IGl  (4)  I 

kK;  T(-  )  ,C-ECt1S)  rA.Anoro)»rLX\  (?)  , 

FJ  FT(7  )  ,Ah  Y(.-  )  »XT\'F.C<.F)  »YTVEC(6)  »7TVcC(6)  > 

Rn  TIJ(  •,)  ,prrTA{4)  ,ur'rT<  (4)  »FH0rT{4)  » 

8XsS(6)  .FYSS(tO  »R2SS(4)  .8COF(20)  »P‘i8(3)  f 
8Ifi(F)  *  "Pl'F  (^6)  »CVE"T(;-6)  »AuEC(3)  »X''EC(F)  r 
Y'/rT(6)  ,?)/EC(6)  fRDIfG(?F)  rBPIA5(25)  * 

i.vLN'(2F)  . 

Srapr.  (2^1)  ,S(.FB(-”=)  fSGRC  (25)  f 
SO  /  (6>")  fS  N  B(625)  »SG’'C(625)  » 

GUPOAlF-e) »GL5  P(24) »0LSQX(24) » 

ADE.  (3)  »BDE:-(3)  »CDEL  (3)  »ABDEL(3)  f FCELf?)  » 

HDELA(?)  ,Hr,ELB(2)  ,  HDELC(2)  »H0ELX(3)  , 

CAPXX(3) »OLX(3) »DELT(3»6) » 

STAPC(inon) »CAPn(3)  s 
ni:  ENSIGN  IDBliFdOi; 

Dli-FNSION  i-.CODE  (3)  $ 

TABLE  OEF  TV0TC(12)  fCHEDl{15)'»CHED2(15)  rCHE03(15)  » 
CHFr4( IB) »OCHED(15) * OBSHD ( 15) » CHED5 ( 15) »THGROC{20)$ 
TABl.EDEF  EQEQLAnO)  S 
REAP  ALL  TAPES  AHEAD 
WPrTETMPEOf'-ST!.  $ 

WRITETrtPE?iXSTi..  $ 

WRITFTAFEftfVSTu  $ 

WR£TETaPEH»WSICS 
STA.-'T  TAG  T 

F/3.14.lBq26C3 

F/.1  .B7i. 796326  i 

F/.:'174B329251  T  DEGREES  TO  RADIANS 

F/6, 2831,653  6 


•rum 

I  (•'!  . 

N/1'’T23FH/6AT475RFwINC  TAPE  10 

TK 

ft; 

JNP 

(P)-iH5F 

TMm 

.3  5 

TA' 

SK  J  PSAri<r 

TMrt 

C/TvNiSURERK;  C/JNPf  SUBER  S 

TA'. 

3? 

JNP 

STaFTO  S 

[-  W/ 

5 

■)  F/''44, 

.  B 

F/.2B  f. 

F/,437B'^6Qr.--2S 

F/8.76t-658UF-3 

F/0.0 

f  ig'^F 

F/n.o 

f  1959 

F/9P.67  03 

5  I960 

F/99.42  '937 

5  19^1 

F/RO. 1822167 

f  1962 

F/P8.94«50n314 

?  1963 

F/9P. 7^47917  S 

1964 

F/0.0 

5  1965 

F/o.n 

<r  1966 

F/o.n 

$  1967 

F/O.O 

5  1968 

F/o.n 

«  1969 

F/.i.n 

f  IQ-’O 

QEQ 


F/u.i 

[1 

F/  .i  .1 

ij 

F/f. 

n 

F/ii  ,1 

u 

F/ii. 

n 

F/>i . 

n 

F/o  ■ 

n 

F/-. 

.9  1 

F/-I 

.97 

F/-' 

.97- 

F/-I 

.97 

F/-b 

.9f- 

F/-0 

.9F" 

F/-0 

.969 

F/-0 

.97  7 

F/-n 

.97° 

F/-.I 

.91-  ' 

F/-r 

.9t  . 

F/-r. 

.9^*' 

F/-f' 

.9b  '• 

F/-r 

.9b  1 

F/-C 

.97' 

F/-r 

.97  ' 

F/-0 

•  Pr-  ' 

F/-> 

.  96 • ' 

F/-n 

.9b  1 

F/-0 

.961 

F/-0 

.96? 

F/-r. 

.966 

FZ-P 

.97  ' 

F/-P 

.97  = 

F/-r 

.96’ 

F/-n 

.96,1 

F/-.; 

.96  ■■ 

F/-n 

.97' 

F/-r. 

.  97 

F/-r 

.96  ' 

F/~. 

.9*'" 

F/-0 

.95" 

F/-)' 

.9b  - 

F/-I 

.94 

F/-n 

.94  = 

F/-ri 

.95? 

F/-n 

.96- 

F/-0 

.95  • 

F/-r 

.957 

FZ- 

.95  ‘ 

F/-r 

.947 

FZ-n 

.94'1 

FZ-P 

,971 

FZ-r 

.9?' 

FZ-. 

.91  = 

FZ-< 

.9,1  ^ 

FZ-. 

.91  • 

FZ-r 

.  0 .1  • 

FZ-P 

.91 

FZ-. 

.921 

FZ-P 

.9^7 

FZ-< 

.921= 

FZ-P 

.925 

FZ-P 

.92? 

1<='  3 

0  iq-p 
«  1074 

1975 
■r  1=71=. 
f  1977 

?  -CM  1  lCi-2 
$ 

S 

5 

S 

$ 

S 

$ 

s 

s 

Si 

$ 

$ 

s 

$ 

s 

$ 

s 

£ 

S 

£ 

S 

$ 

s 

£ 

$ 

$  I.0V27  1962 
$  0V28  19b? 

S 
% 

S 

£ 

$ 

£ 

£ 

$ 

£ 

£ 

£ 

$ 

$ 

£ 

$ 

£ 

$ 

£ 

S 

£ 

£ 

£ 

S 

S 

5 

S  nEC24  1962 


E-  33 


10A2 


F/-n.gi- 

? 

f/-r  .Cl  -« 

? 

f=/-r.Q 

% 

F/-  .pc 

% 

F/-r .8c i 

i 

F/-.  .B.- 

» 

F/-  .P  k 

5 

F/-C  .P, 

? 

F/-.I  .8>  ■ 

S 

f  /-('  .8'^  ' 

? 

FZ-i"  .89 

$ 

F/-r .89 

% 

F/-I  .89’ 

S 

F/-n.8F- 

<6 

F/-r .879 

* 

F/-r .871 

5 

F/-r .86  ■ 

$ 

F/-r>.aF5 

S 

F/-r.85 ' 

s 

F/-r.8F’ 

$ 

F/-r.  .855 

s 

F/-<  .85^ 

$ 

F/-r .861 

s 

F/-i  .86'= 

$ 

F/-I  .860 

s 

F/-0,a70 

$ 

F/-r.  .87' 

s 

F/-!' «  860 

s 

F/-r ,861 

$ 

F/-r ,8b" 

s 

F/-n.8b= 

* 

F/-r,84-? 

s 

F/-i.,84;'' 

$ 

F/-f .84^ 

s 

c /_(!  .  na'* 

$ 

F/-r ^84 ’ 

$ 

F/-1' .8B" 

$ 

F/-1' .857 

$ 

F/-i'',86  ’ 

s 

F/-H.861 

$ 

F/-0.85= 

s 

F/-i'.85  = 

3 

F/-n.Bbri 

$ 

F/-n,845 

s 

F/-n.P4i. 

$ 

F/-0.a39 

s 

F/-n.84  ■' 

s 

F/-r.84-^ 

$ 

F/-P.84P 

s 

F/-P.85'! 

s 

F/-f’  .86  1 

s 

F/-I1.8---' 

s 

F/-I.  .872 

s 

F/-r .87= 

5 

F/-r .RT” 

s 

F/-.  .87-- 

3 

F/-C.87  ' 

$ 

F/-r .871 

? 

F/-n.866 

3 

F  /  -  r  .  8  6  ? 

S 

F/-0.8^  ’ 

$ 

-C31  1C:  ? 


^an13  1963 
wAN14  1963 


FCB  1  1963 


FFB  7  1963 
FEB  8  1963 


^4 


F/-r'.8r  • 
F/-r.87.^ 
F/-n.8F' 
F/-.8t‘P 
F/—',6<i' 
F/-n.89’ 
F/-n.899 
F/-i.,89“ 
F/-0.e95 
F/-0.89? 
F/-0.899 
F/-n.890 
F/-0.892 
F/-0.897 
P/-0.903 

F/-n.911 

F/-0.919 

F/-n.92P 

F/-0.935 

F/-0.940 

F/-0,944 

F/"n,9U.6 

F/-n.946 

F/-0.944 

F/-0.942 

F/-0.941 

F/-0.941 

F/-0,944 

F/~0,94° 

F/-n,957 

F/-0.965 

F/-r’.97? 

F/-0,97P 

F/-0,980 

FZ-n.geo 

F/-0.977 
F/-0.974 
F/-n,971 
F/-n.971 
F/-0,973 
F/-0.978 
F/-0.982 
F/-0,99n 
F/-n.9_9P 
F/-.1 .006 
F/-1.013 
F/-1.01P 
F/-1.022 
F/-l,023 
F/-1 .023 
F/-l,021 
FZ-l.OlQ 
F/-1.01^ 
FZ-l.Ol'; 
F/-1.016 
F/-1.019 
F/-1.024 
F/-1.031 
F/-1.034 
F/-1.043 
F/-1.045 


5 

S 

$ 

s 

t 

s 

$ 

s 

S  i' AR  4  1963 
S  VAR  5  1963 
S 

s 

3 

S 

$ 

s 

s 

s 

s 

s 

s 

3 

$ 

s 

$ 

s 

3 

c 

S 

s 

s 

$ 

S  IvAR29  1963 
$  VAR30  1963 
$ 

$ 

$ 

3 

3 

3 

$ 

3 

3 

3 

3 

3 

3 

5 

3 

3 

5 

3 

3 

3 

$ 

3 

3 

3  APR23  1963 
3  APR24  1963 
3 
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F/-1 .04 
F/-.1  .03  ' 
F/-1  ,n.‘^ 
F/-1.0^ 
F/-1.0^-- 
F/-1 

F/-.1  .02- 

F/-1  .0-^- 

F/-1 .05'' 

F/-3  .04:. 

F/-1.04A 

F/-3 .051 

F/-1.055 

F/-J .05- 

F/-.1  .05'=- 

F/-1.05-'f 

F/-1.05n 

F/-1.04- 

F/-1.04.1 

F/-.I..O31 

F/-1 .03^ 

F/-1 .  OS'- 

F/-1 .03“ 

F/-1.047 

F/-1.047 

F/-.1  .051 

F/-1.052 

F/-.1.05 

Fy-1,044 

F/-I.O37 

F/-1.02q 

F/-1.022 

F/-1.017 

F/-1.015 

F/-1.01O 

F/-1.01  1 

F/-1.022 

F/-1.025 

F/-1.0?- 

F/-1  .OS'* 

F/-I.O35 

F/-l,03l 

F/-1.027 

F/-3 ,02? 

F/-i.ni  ■- 

F/-1 .000 

F/-1.0ua 

F/-1 ,oon 
F/-0.99  - 
FZ-P.gF' 
F/-1,0P1 
F/-i.0r-  ' 
F/- 1.00 7 
F/-1 .000 
F/-3 ,007 

F/-I.O11I 
FZ-p.^q" 
F/-i'  ,94^' 
F/-l:,97- 
F/-r.qr-o 
F/— 0 
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F/-r'.9n'> 
F/-r ,96- 
F/-ri.96-' 
F/-r.97.1 
F/-fi,97F 
F/-r .977 
F/-r).97  ’ 

F/-r.977 

F/-r.974 

F/-r.g6'- 

F/-i'.9F-; 

F/-n.g5c 

F/-n.950 

F/-0.946 

F/-n.943 

F/-0.944 

F/-C.946 

F/-P.95:'i 

F/-0.95-- 

F/-!’.95? 

F/-n,96- 

F/-r.,g53 

F/-U.947 

F/-n .94 

F/-n.932 

F/-fi.92.> 

F/-P.922 

F/-P.921 

F/-r .92? 

F/-n.926 

F/-r.9?l 

F/-o.93f 

F/-n.94- 

F/-P.94-' 
F/-r  .94''4 
F/-P.943 
F/-r.94' 

F/-o,g^e 

F/-r-.93J 

F/-n.927 

F/-r'.g2’ 
F/-n.92' 
F/-f .923 
F/-r , 92  7 
F/-n,g37 
F/-f .9;^ 
F/-r'.94'' 
F/-n.947 
F/-f:.94  4 

F/-'-  ,94-=' 

F/-n.93c 

F/-fi.9?3 
F/  — :  •  92'^ 
F/-r'.9F  - 
Fz-ci.g?-? 
F/-i  .9* 
F/-I .9?- 
F/-:-.94 
F/-P.94- 
F/-1I  .9F6 
F/-0.g61 
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$ 
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$ 
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$ 
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F/-n.96S 

S 

AUG26 

1963 

F/-0.967 

s 

AU627 

1963 

F/-0,967 

$ 

F/-0.966 

s 

F/-0.963 

s 

F/-0.961 

s 

F/-0.959 

s 

F/-0.959 

s 

F/-n.g61 

s 

F/-n,g6^ 

$ 

F/-o.g7v 

$ 

F/-;'.g^- 

% 

F/-I  .9^.0 

s 

FZ-n.gg  • 

s 

F/-n.gg,<^ 

$ 

FZ-n.gg? 

s 

F/-n.gg^, 

$ 

FZ-'i.gfrC 

s 

F/-o.gfi? 

$ 

FZ-n.gs'^ 

s 

FZ-O.gh- 

s 

FZ-n.ggn 

£ 

F/-0.99? 

£ 

SEP17 

1963 

F/-.1 .00‘( 

$ 

SEP18 

1963 

F/-1.01Z 

5 

F/-1.021 

S 

j 

F/-1.02° 

s 

■ 

F/-1.034 

$ 

FZ-.1.  ,037 

£ 

F/-1 ,039 

£ 

F/-.1 .039 

S 

F/-.1 .03---' 

S 

! 

F/-1.036 

£ 

F/-1 .03“= 

$ 

F/-1.03‘= 

£ 

F/-3 .037 

$ 

F/-1.047 

£ 

F/-1  .04'-’ 

S 

F/-1.057 

£ 

F/-]  .0?“= 

£ 

! 

F/-1.071 

£ 

F/-1 .07’' 

£ 

F/-J .074 

£ 

i 

F/-] ,071 

£ 

j 

F/-1  .Ot:7 

£ 

F/--,l  .Oh? 

£ 

F/-1 .OpI 

S 

F/-]  .Or  1 

£ 

F/-1 ,0p. 

£ 

F/-]  .Op' 

£ 

'.CT14 

10c3 

F/-J .07- 

$ 

.CT15 

1963 

F/-j .Oh' 

£ 

F/-1 .0^ 

5 

F/-1 .09 

£ 

F/-1  .1,  ’ 

£ 

FZ-I  .1. 

£ 

F/-1  .1. 

£ 

F/-1 .1.7 

£ 

F/-] .1l  - 

£ 

F/-1 .1  .  ' 

5 

F/-,1  .1 

f. 

E  -  'S 

F/-3 .OF 

* 

F/-1 .OF 

S 

F/--  .1.  ' 

* 

F/-.1  .In 

F/-; .lit 

s 

F/-1  .11  • 

s 

F/-l.lk’ 

F/-1  .1^'- 

s 

F/-1  .!;>■' 

$ 

F/-1.11 

$ 

F/-3 .11? 

$ 

F/-1  .lu.- 

$ 

F/-1 .lul 

s 

h/-1.0F^ 

55 

F/-1 .097 

S 

F/~1.099 

$ 

1  CVIO 

1963 

F/-l.iu? 

s 

I'OVll 

1963 

F/-1.1l.'^ 

s 

F/-l.ir' 

$ 

F/-1 .lie 

s 

F/-1.122 

s 

F/-.1  .12? 

s 

F/-1  .122 

$ 

F/-1.12' 

$ 

F/-l,ll^ 

s 

F/-.1..1A 

s 

F/-I.I11;; 

£ 

F/-i.H.1 

$ 

F/-.1  .09- 

$ 

F/-1  .OF'i 

$ 

F/-1.09i 

$ 

F/-1.1L.1. 

s 

F/-l.lLiF 

$ 

F/-1.10'- 

s 

F/-1.11 1 

s 

F/-a.iuf‘ 

s 

F/-J.1L''' 

£ 

F/-1.09’' 

$ 

F/-1.0H’ 

$ 

F/-1.07'' 

£ 

F/-1.0b7 

$ 

F/-1 .Ob^ 

i 

F/-1..0F2 

£ 

OEC  7 

1963 

F/-1 .06-1 

£ 

t  EC  8 

1963 

F/-i,ne7 

£ 

F/-3 .07'-. 

£ 

F/-1 .07? 

S 

F/-1 ,07  1 

£ 

F/-1.07'‘ 

F/-1.Q7-^ 

£ 

F/-1 .Ob  ■ 

$ 

F/-3  .Of-'' 

£ 

F/-1  .Ob-- 

$ 

F/-3  .0*. 

£ 

F/-i.ntb 

£ 

F/-i.n?7 

£ 

F/-\  .0?'> 

£ 

F/-1 .0? 

£ 

FZ-l.O?-^ 

£ 

F/-1  .O.'- 

£ 

F/-1.0U’ 

S 
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F/-1 ,04^ 

S 

F/-1 ,04’ 

5 

FZ-t  .n,-*' 

S 

F/-1  ,0i^' 

5 

F/-1.0i - 

$ 

F/-1  .01 

5 

FZ-O.gcc- 

$ 

F/-  .9'4-’ 

S 

F/-r..94' 

$ 

F/-.'.9'tO 

S 

F/-r .99^ 

s 

F/-  .99  ■ 

3; 

Fz-.i.gg'; 

s 

FZ-1.0.  ’ 

$ 

FZ-l.Oi 

s 

FZ-l,OLil 

$ 

FZ-o.gt.' 

$ 

FZ-.".9c^ 

s 

FZ-0.9F7 

$ 

F/-..  .g^l 

$ 

FZ-Q.97‘= 

$ 

FZ-C.970 

$ 

FZ-n.9F^- 

$ 

Fz-n.go'’ 

£ 

FZ-0.97II 

$ 

FZ-n.g77 

$ 

FZ-r .97  ’ 

$ 

FZ-o.gni 

$ 

FZ-(  ,9h-^ 

$ 

FZ-r.9ff1 

$ 

FZ-f  .97.= 

$ 

FZ-0,90^ 

$ 

FZ-0.96' 

s 

FZ-0.95" 

$ 

FZ-.I.94  > 

5 

FZ-n,94.=. 

$ 

FZ-o.g47 

$ 

FZ--1.9M 

$ 

FZ-0.950 

S 

FZ-0.961 

s 

FZ-n.9i4F 

£ 

FZ-n„97>i 

£ 

FZ-n.97i 

S 

FZ-r'.97l 

£ 

FZ-.-’.9n9 

£ 

FZ”i’ .  9d6 

£ 

FZ-C'.9n  - 

£ 

FZ-O.gE^* 

£ 

FZ-r.94'-. 

£ 

Fz-'.gs'" 

£ 

FZ-I  .gF*” 

S 

FZ-n .9^1 

S 

FZ-(  .On’’ 

£ 

FZ-...97^ 

£ 

7Z-r''.9t‘' 

£ 

fZ-r  .9,-  = 

£ 

FZ-  .  .9i?.'- 

S 

FZ-i'  .9^  = 

s 

FZ-O.90I 

s 

FZ-O ,97- 

£ 

FZ-ii.97t 

£ 

E-40 


F/-r .Qr 

F/-r  .p.r  ' 

F/-. .P7 
F/-7 .97' 
F/-.  .9,-  ■■ 
F/-r,  .99 
F/-.  '  .QC 

F/-1  ,  Otii-l 
F/-1.0.  - 
F/-.1  .01’ 
F/-3 .01  : 
F/-l,01i 
F/-1.01:' 
F/-1.0U  ’ 
F/-3 .0o7 
F/-J .0u“ 
F/-.1  .011 
F/-1.01F 
F/-3 .02? 
F/-1 .07  ’ 
F/-1.02  ' 
F/-1 .04F 
F/-1.04 
F/-1 .04--i 
F/-1.041 
F/-.1  .042 
F/-1.03? 
F/-3 .02F 
F/-1.03'^ 
F/-1.0?o 
F/-1.044 
F/-3 .05? 
F/-1.061 
F/-l,06? 
F/-1.07'' 
F/-1.0FI 
F/-1.0F1 
F/-1 .0B9 
F/-1.0e5 
F/-.1 .0B4 
F/-1.0B? 
F/-3 .Ofll 
F/-3 .OBO 
F/-1.081 
F/-1.08'= 
F/-1.091 
F/-1 .09^ 

FZ-l-ine 
F/-1.11’' 
F/-1.11F 
F/-3 ,117 
FZ-l.li:’ 
F/-3 .lu= 
F/-.1  .11^5 
F/-.1  ,09° 
F/-1 ,09- 
F/-;  .n«‘- 

F/-l.li.-= 

F/-1.H5 

F/-1,119 
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F/-1  .l-i" 

$ 

s 

F/-1 .I?' 

$ 

F/-.1  .i:-.- 

$ 

F/-1 .lo 

$ 

s 

•'■Y  1  19ci» 

F/-] .1^- 

F/-3  .  lr> 

5 

F/-1 .IJ" 

$ 

F/-j .13 ■ 

s 

F/-1  .11  ■ 

£ 

F/-1 .ll' 

$ 

F/-1  .12' 

S 

F/-3  .1.-^' 

S 

F/-1.1?S'- 

S 

F/-3  .1.V’ 

£ 

F/-.1  .1?,- 

S 

F/-1  ,13'=' 

S 

F/-1  .I?'; 

S 

F/-1 .11'' 

$ 

F/-1.  »c. 

S 

F/-3  .  ii’ 

S 

F/-3  .  or. 

$ 

F/-.1  .  i  I 

$ 

F/-1. 

5 

F/-1.  1.- 

$ 

F/-1.  13 

$ 

F/-3 .  i7 

$ 

F/-1.  1C 

$ 

F/-1.  2' 

$ 

F/-1.  l;- 

$ 

F/-1.  1^= 

s. 

F/-1.  17 

s 

F/-1.  b'l 

s 

F/-.1  .099 

$ 

F/-3  ,0O't 

$ 

F/=l.  C.3 

s 

«LNE  1  1964 

F/-3 .  tP 

s 

F/—  1.  .  (-  5 

$ 

j 

F/-1.  91 

s 

j 

F/-1 . 

£ 

F/-1.  9' 

$ 

F/-1.1U1 

s 

1 

1 

F/-,1  .1.-  ■' 

$ 

1 

F/-1.0C- 

s 

F/-3 „0P7 

£ 

I 

F/-.t,077 

$ 

1 

FZ-UOr.-' 

s 

F/-3 .OF’ 

£ 

FZ-i .Ob  ’ 

i 

1 

F/-,1  .OF 

£ 

FZ-i.Obl 

£ 

F/-1.0F  ^ 

£ 

FZ-UOf 

£ 

F/-. .Or  ■ 

£ 

F/-1 .Or 

S 

F/-3 .Or  ' 

£ 

F /— : . Or 

£ 

F/-'  .  'l^- 

£ 

F /-■  . Pr  ’ 

£ 

F/-i.n- 

;  -  -t  J 

F/-3 

f 

F/-3  .0?-^ 

» 

F/-3 .02= 

s 

F/-1  •  02'' 

s 

F/-1 .02= 

F/-1 .02= 

s 

F/-.1  .03" 

s 

F/-1.03'’ 

$ 

FZ-.i  .03"' 

s 

F/-1.037 

s 

F/-1.03-‘ 

s 

F/-1.026 

s 

F/-1 .01" 

$ 

F/-1 .Ou9 

$ 

F/-0,999 

£ 

F/-f'.99? 

$ 

F/-n.9fJC 

S 

F/-1-..9P9 

$ 

F/-!'.992 

5 

F/-0.99<'' 

$ 

F/-1,OUO 

£ 

F/-1  .Ou-' 

£ 

F/-1.00= 

£ 

F/-1  .0.;' 

£ 

F/-.1  .Of" 

£ 

F/-r .99 

£ 

F/-n  .99’^ 

£ 

F/-ii.9e  = 

£ 

F/-0.96'" 

£ 

F/-r.9/''’ 

£ 

F/-0.97" 

£ 

F/-r.97 

£ 

F/-0.9.'1 

£ 

F/-f'.g,-‘= 

$ 

F/-r.99" 

£ 

F/-f‘,99  = 

£ 

F/-!'.9c  • 

S 

F/-.  .ggc 

$ 

F/-i,.gc  - 

$ 

FZ-O  >  9? 

£ 

£ 

FZ-0.971 

£ 

FZ-;  .9>- 

£ 

F/-n,ah- 

£ 

F/-\9r.-- 

£ 

FZ-.  .07 

£ 

FZ~(i.97  - 

£ 

FZ-7 .9^" 

£ 

FZ-^  .9  - 

£ 

FZ-  .90  ■ 

S 

Fz-n.g<- 

£ 

FZ->  .90= 

£ 

Fz-i' 

£ 

FZ-t'  .gc 

£ 

FZ-r.gh" 

£ 

Fz-i:  ,o,-.' 

£ 

FZ—i'  .  9':'  ' 

$ 

FZ-0.9.  • 

£ 

FZ-i.  .9." 

S 

FZ-C.g-^" 

£ 

FZ-0.99=: 

£ 

^ULY  1  1964 


flUG  1  1964 
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F/-1 

.  0  .  ■ 

F/-1 

.0 

H/-; 

•  ij  1  ' 

F/-- 

.ril 

F/-] 

.  0  1  - 

p/_i 

.0  i 

F/-J 

.  0  .1  i 

F/-3 

.  u 

i- /- j 

.0  1 

F/-.' 

F/-5 

.0  ■ 

F/-1 

.0. 

F/-3 

.01  - 

F/-J 

.o;^i 

F/-.1 

F/-1 

.03  = 

F/-J 

.04'" 

F/-.1 

.04:=' 

F/~.1 

.04’ 

F/-1 

.04-* 

F/-] 

.041 

F/-1 

.03F 

F/-J 

.03  ■ 

F/-.1 

.03' 

F/-3 

,041 

F/-3 

.04.- 

F/-.1 

.06'^ 

F/-1 

.063 

F/-1 

.OV'- 

F/-.1 

.077 

F/-1 

.0^7 

F/-J 

.0 

F/-1 

,0-1 

F/-.1 

.07  ■ 

F/-:. 

.07  ■' 

F/-j 

.  Oc  - 

F/-3 

.0^-' 

F/-j 

« 0 

F/-.1 

.07 

F/-:i 

.07=: 

F/-1 

«  06  ■' 

F/-3 

.OF" 

F/-,i 

.Oi  7 

F/-j 

.  0 . '  ■ 

F/-3 

.011- 

F/-1 

.01? 

F/-1 

.0-11 

F/-1 

.06- 

F/-1 

.067 

F/-3 

.0'  ^ 

F/-; 

.0.  • 

F/-I 

.0'  ' 

F/-] 

.0.'? 

F./~] 

,0i  ' 

F/-1 

.1?1 

F/-1 

.1?  ’ 

F/-1 

.1 

F/-1 

.1-'- 

F/  — 3 

.  1  - 

F/-: 

» 1 3  ‘ 

F/-; 

.I.’? 

s 

s 

$ 

s 

$ 

$ 

<s  s‘-;PT 

s 

$ 

$ 

s 

$ 

s 

$ 

s 
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1  1-64 


19^4 


F/-.1  .  $ 

$ 

F/-.1.1].-  $ 

F./-1.11'-  S 

S- 
s 

F/-3  ’  S  .  OV 

F/-,1,l?'  S 

F/-3.13  S 

F/-1,l4r  S 

F/-1.14U  s 

F/-.1.14^  S 

F/-3.141.  S 

F/-1.137  S 

F/-1.13?  $ 

F/-1.12«  S 

F/-1.12‘^  S 

F/-1.123  S 

F/-.1.12-^  $ 

F/-1.12'^  S 

F/-1.12->  4 

F/-1 .13^  $ 

F/-1.13'  $ 

F/-.1.141  £ 

F/-1.141.  $ 

F/-.1.137  £ 

F/-.1.13‘-  £ 

F/-l,l?r(  £ 

FZ-J.!!'-'  S 

F/-1.1.’?  $ 

F/-1,047  £ 

F/-;.n9''  $ 

F/-3.097  $ 

F/-.i,n'.n  £ 

F/-l.lt'l  £ 

FZ-.'i  •  lu7  £ 

F/-.1,li;i4  £  OEC 

fZ-Ul.r-  £ 

F/-1,1!.'7  £ 

FZ-l.lu"'  £ 

F/-1.P97  £ 

F/-.1,04'  $ 

F/-3,0<--'  £ 

F/"i,077  £ 

FZ-l.OV'  £ 

F/-.1.07I  $ 

F/-.1.07  1  £ 

F/-3.n71  £ 

F/-3.07'  £ 

F/-1.077  £ 

F/-''.07'?  S 

FZ— J  .07-  £ 

FZ-j.07--  S 

FZ  — .1  .Or  $ 

Fz-i.n*''’  £ 

FZ-.I.Oi.'-  5 

FZ-1.D.-:'  S 

F/  —  3.0r  £ 

FZ— l.Or  5 

FZ-1.021  £ 

FZ-1.022  £ 


19c? 


1964 
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iog,t4 


♦ 

hT  ^ 

S  1  r%  T 

FI  hr> 


* 

♦ 

Fi  !=rt 


IF1 

IS’ 

T:-^ 

I^'- 


i '  - 

I‘- 

I'-' 

T  V  ■; 


p:  -  •; 


F/-:.o<_'  s 

F  /  -  ■  .  r  ^  5 

f/-.v  i 

F/-;.n,  ?■ 

F/-1  .0,-  ' 

F/” '  •  0  F  5' 

tf  ■  TAu  $ 


i  FT  FT- 


,\‘ST;  ST-  STm-'T-.s; 

IF(i  ST-  T)F  fMS»STAST2»':TART2  5 


IX‘X=i.  4  * 
lHF[-=n 

XFTr'W  =  .-  .2PL:v33:^333 
XFT’  r>'=F  ipn.F 
XMP'  (‘■/■rXFTNP./XFTFM 
XNPFR  =  P’7P1P5.  :> 
XAXSrXi.  3ER/xF:Pk.|v 


?  F£FT  PER  ■FTER  3280P3333 

$  FEET  PER  KAUTICAL  f'lLE  6080.2 
$  l^ETERS  PER  NAUT  ^‘ILE 
$  I^ETERS  PER  EARTH  RADIUS  6378165 
S  NAUT  MILES  PER  EARTH  RADIUS 


PASTEKa  =  u.O  ? 
NTA:F6=  S 
(vTAPE3=  '  5 


GO  TO  F ’ANK  BRC’.NS  s/\TA  READS 
DOtEOFr  )  I  =  .i.7  S 

CAT  n(l)=n.'S  SET  C!'TWP  ARRAY  TO  ZERO 

call  S  i  RTER  (HCI'  G.CA  TH;b»XlSTSG»TOi.DT»TF»D»XM,XLO»  AXN»HXf  IPNTFL» 
ARSi  X,,  CODEfORenA.ORGT:  iRFFDAfREFTMr ABMX2»EFLAG» IXYR»XAXS)S 
Rap YN  =  57.2957795$  SET  UP  CONSTANTS 

Xi'  =  , 2504742610  $ 


R2--  Is.’gPPi'^ZMS 
PASIFKa  =  0,0 
IF(IXY--5)ISlrIS2»ISl  $ 

IF(IXYh-&)lS3»IS4fIS3  $ 

IF(lXY--7)lS5.iS8^iS5  S 
WRITE  «i  TPL,T  Tape  5»IS6»IXYR  $ 

FO.^  AT(  ^HlUf5HYFAR  fI2f36H  GIVE!'  AS  INPUT  NOT  IN  EQUINOX  TAPLE)$ 
ST- FT  T  C 


Kli.  UT 


JMFI  s  >- 


61  '  TAl  « 
IT=:PRG.'  -3C.A  J 


GO  TO  A -'7  1 
IT— PRG'  +515 
GO  TO  A -7 


IT=PSG  '+4^r  $ 


CO'TI^^  ■' 

H  !<  A', ,  T  =  1  ,  i‘l  -■ 

EV.I'^=.  -■ 

STi  T=.  S5n  72'- 
TH.  -r= I  GRP  ( I  .VH) 
FLt-  4  =  -.i^PL-ptii,PS 

VO'  ,  A  401  “('2^  A61  Lf 
SI,-f=.‘-  IP.  -41 
SOS  I  —  1 « ■  I ? 

XV  =1.11' 

Tb.  '  T=.0SPS’44'  I 
F— .  1'33^232SC5 
RAi  .  — I.'RSL 
XK.i-  =  .r74355„':-  ■+ 


CnO=.c  ‘i. 


X..NPf?f1=i  .8?341£-3S 
H  'PftM=-6.£-fe$ 
riMp.^‘r-^3  -  JPc  —oS 
XJAY5=-o.2E-<.^ 

SIXP8=6.97?e>-  - 
0^EPr=1.17391’“« 

CD=2.C  f 
AE=1 . 0  - 

ST/kRT2>APRi  •  -  I  .  C..  "5 

APRn  F.6  =  O.d  S 
APRNiT71  =  O.r  S 

APRN.2  6  =  0.'.'  S 
APRN  C.1  =  n.x  5 
APRN  13-0. 0-e 
APRNT?=y^PftNi-S  J. 
iVTAPEJaz  lao  3 
fPAi-.  =  f 

DRSCOr'A^rEF^t' ('D*X‘2/XIM)*(CD*R:-iOO/2,0)*PI*>»'2»  (-l.f-)  * 

FRAC  { 1 )  rORGTM/XMNPDA/  FR  '^C  ( 2 )  =SI  DRT+FRAC  ( 1)  $ 
riAC  l2)=?60,  *F«AC(1)+F..AC{2)S 
THGR  =  APROPR  (^RGDA  ♦  STDRT  +  FRAC(2)  +  THGRO  )  $ 

THGRD  =  CO,4V  ♦  THGR  $ 

START  tag  S 
TiViA  C|>1TWCI 

JAZ  (P)+i.F$ 

JMP  i£C2  J 

TMO  /n  ^ 

TuM  CNTvJD 

RND  TAG  ■ 

SE  CvlTWD(10)  =  (REFDA-OR6OA)*XMNPDA+REFTyi-ORGTMS  NEVJ-OLD  £POCh»  INS 

^F(«.^^  r'.i,)(in)»OT)  .T(0.)  »eo  to  SEC3DS  =0  if  cannot  be  peached 
IF(,  (TF))  GT(APS(C  TWD(10)))»eO 'to  SEC3$  I^  'SPE':xFIED 
SEi  .-,C  RlT  ti'TPUr  TAPE  5^'EC2r$  IKTEGRATIO 

SEc,-.-  FORMAT  (  iSriRuf^O  <  ST/-RT  TIME  //)% 

CN‘iWi/(l<')  =0.0  S 
b£  SEtfINDF 

REWIND  1  3 

TPF^s  =0.0  S 
NTAPE6='''  » 

GATEl=A'3SMX‘i- 
6A’E2=ASMX?'n 
G,.,CN'r  =  l.'  .iO  ■ ':T2=  1.0? 

THE  FOL-CwIa'G  T,-<iNSFER  OF  COLUMN  HEADINGS  MA''  BE  CHANGED-^ 

O  1  .  1  =  1 r INS 

HEDCJ)  =  C,-t01(I)  $  TIME-lAtITUDE-LONGITUDE  -  ALTITUDE  TO  HEAD 
COMPUTE  SuF  -POC- .  values  OF  - 
INCLINE-  ION,  NO'E.  BAR»  FEAN  MOTiONf  A  BAP 
begin  IF(  mTHSG)  >TECl.)r  X9THSG  =  3.S 

f>  ■/  I  **  ■'?' 

..NT»  '  (12)=0.ni.iC.-  WD(13)=0.05 
ITI;  S=.-THS..-S 
■=h,  •»2+(-Y**2+HZ**2S 
-<TP="v>HT(P)‘^ 

X=hX/RT‘^i.V.  Y=HY/PTPN  Z=>-  Z/RTP$ 

SI^ I=SNP7 ( 1 .< -WZ**2)5 
SlN0=v.X/5INlf;C0S0=(-VY/SlM)$ 

COS  i= 

IFCC  t,Ii  E  {  .)»  XINCL  =  FIOVPC  GO  TO  'l9S 
XINCL  =  ATANF  SINI/  COSI)  S 
IF(XiNCL)  LT  (0,).  XIN^L  =  PI  +  XINCLS 
S9  IF  (COSO)  E  (0.)»  XN0DE(2)  =  SIGNF (P10V2»SiNl)0  GO  TO  23  S 
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X  'TEt  )  =  ATn  (Si’C  /  CCSC)  S 
IF  (CC.'.  )  LT  (  .),  v,c..E  C2)  =  XNCi'FC?)  +  PI  S 
y  r  E  ■  2)  =  F-  PR  (yr-,i.  rE  (2) ) 
ax:  ;  AX.  ’COS^  “Cv  FI  *»•■'(  *ylEO)'t 

ay=(ax  ‘+CL5i*»^y'  *ccsc)‘F 

b7=  (  AYi  'Sir  T 

C  n  .  =  ( -  ^  *  I  j  *  *  ?  /  y  iV  )  <f 

COl.TF  =  (VC  ?*'  ,2';)/(F  IS*ST(:S)  $ 

es..  =  i.  t '  -  ( 6  >  »*2+A  y**5+a;**2  ) « 

A  ( 1  )=  I-  'fcS(v  A  i-  (2)  =  A  { 1 )  <r 

xw=  XKE  /(  Sc  PI  (A  (.1  )  )+A)*SCRWLi  g; 

N  C  -  T  R  L  —  ’ 

LI.  .7= 

LOuf  T=  .O'!: 

IP.T.l'T=!  •? 

AX.  ]=A*  (D  AY-  I=AY'  ? 

♦  '  tT  I’P  Ti  Ii  TESRATE  FPHEFERIS 

RK5TO ( 1 ) =TO$ 


RKSTO(7()=nT  PKSTO(A)=XLC$ 

DO  TA  1=1, 3i 
RKSTO{i+F)=AX{DS 
P.<.STO(i+A)  =  ryd)*! 
call  XY’SPS 
XNP?=2l  T  S 

A?uR=Ai<*AFKSUPi.  =  A?ui:*ESIt\ES 
Uiyir.'=  ( I  --uO  )  *  (  ->  .  0/2  »  0  )  F 
PSliPA=('  ':..UCM'RSi  PU)+'-’5 
ROV('=R/  '% 

RX-.  =  (A'.  I-CCSEl  )*A20R$ 

PY.  =(A'..  I>-SIIvEv-)*A2'P$ 


usi>-i;=ix  ■tsc.y'A?^  PS 

US"  A=l.cupu*Uf';  0$ 


l1E'•'  l*  =  .^  GR**2*h  TESr.-': 

TE-:  =  (y  GR*FC0SF)*(-1,;.,)-ESF+(1,0>S 
UY-.  =  (TE  P/l.ELO.  )*ESllvES 
UYvn-Y  ^AXi-IS 
POi.A  =  l,  +RO''A? 

UX  rifv  +ROV  '-^.Slr  £03 
OX  -(  (-  YE!.i/XL7p)+0XP  )*A2CRf 
UY'  rUY,  -rAY, ,  I-RD'A^C-’SE-.F 
OY.'-  =  A?u  ♦  (  (  AXE'i/XLi3n)+>.  YN)S 
♦  'vR'TE  AR^i  ETL.-S  for  STC  -  EVlATICiv  DETERN'IFvATICiv 

WRITE  T  PE  1  1  ,  .KSTC  ( 1 )  r  (RSUFA(  I)  ,  1  =  1 ,4)  ,  (US'lBAd)  ,1  =  1,4)  , 
(Ud  I )  ,  T  =  l  d  )  ,  (  V,<  d)  ,  1=1  ,^)  ,R,COSI,SIM,SIi'.ll,COSU, 


(X  (I )  ,  i  =  l  ,3)  ,  (  ;:(I), 1  =  1,3)  $ 

n  3 


Sd'3F 


iv 


IF(FFL 

’  G  )  2  0 , 5,-  E  3F  » 

NCi  TRL  = 

■XXa  S 

SF'dF  L 

TGHT  AS 

GO  T 0  C 

TROT 

RECTI  = 

0.0  3 

-'iT  rii  F  3  = 

$ 

bT^'T  -1 

CS 

TP  4 

C  /  p  F  ,  :  t'  R  I  V 

TE  . 

R/R  -CM  ,T1;. 

J^■A' 

r-"OFF  .  RU,. 

JV- 

4  K  r  ‘ 

J"‘- 

CSC  [. 

PA  -  - 

4 

EP  i  C. 

POT  S  ■  LIE 

A  ^  ^  , 

A  -  r  f  .  1 

TO 

.IT  4  V  / 

C/v.vp,c:  TPL  5 
/TT3R.d/nTa7 
:F« 

s 

s 


GC 


TEGRATE  EPHEf'ERIS 


OF  CERIVATIVES 


ITE  RESPECT  TO  TI-'F  OF 
E^  A  PAP,  H  bar,  A.r  XL 


F.  -  -i 


* 

* 

* 


E-  ■  TA'. 

cam.  x  I  sP  ■ 

CC  iUT'  PEmijph  TI  'F.  ACCELrPATirf'S 

I.-,  f  .  '='AVh  OUT  PRA't  until  PECTIFT  ROLTIN'E  is  called*  Ai\D 

C.  PUT'  PLiLGE  P£RT"FP->TICiv 
UisF  hP  ',-=P+ :'TR'--RS  P*RS  'R*'.5 

Li7fi'  R=t  *U7  XO>iPP=X/RE  i70VR‘==2/R5$ 

XP  ■’  -R='  \/RS’K5.(l*UZSPR-l  .0)  ^XJX  PRX’S 
XP  r-P=X  -Ufift+O’'  VR5*7*P  PRV/RSGR)*(7.0*U7SRR-3,0)$ 

XP,/-R  =  ,>  UGR+C  (XOVR5  +  XK.  PRK' )  /  (  F  .  r*RSCR )  )  *  ( 42 . 0*U7SQR 
‘  S(3R*UZS  PR-3.0  )v 

XPPCR=>  DGk+( (PI .0*XJAYP*XOVR5*UZ)/(8.0*RSQR*R) )*(5.0 
-3,11 , 0*L  7SOR+33  <  0*UZSGR*UZS(;R  )  I 
YRnGR=x  DGR* ( Y/X)S 

ZBi')GR=7  '  VRB=K  (  5 . 0*U2SQR-3, 0  )  *X  JiVPRf/S 
2Rnr-R=/:  'DGR+(  .6*HiVPPN/RB)#(35.U*U2SGR*U2SGR/3,0 
-.1  0 , 0*u.-'SQR+l,  ij)  S 

Z8U:R=/  0GF:+{  (ZCVRB*XK.'.PRy)/(6.0*RSPR)  )  *  (-63 . 0+UZSQR 
*U7SPR+7  0  .  (j*UZS'^R-l‘=  ,  0  )  ? 

ZP.V’R=/  DGH+<  (3,0*XJ,AYn)/{d.0*R?*PSPR)  )*(-5.0 
+U7SCvR*(105.0+l,ZSPR*(-315.0+UZSRR*2?1.0)  )  )$ 

THG  •f.  zC-itvV*  (THGP0+SIDPT*0RG0A+{TW0PI+SIPRT)+RKST0C4)/Xiv'NPDA)S 
UXTIivE=  -RGDA+R,>PT0(4  )/xyMPL'.A$ 
call  PtLGEdXY..  *UXTII^EfX*THGRN'*AAA*BBBfCCC)S 
XRi.iPR  =  x  ’DGR+AAA? 

YBiU-R=Y  ^DGR+Rb:-? 

ZPDGRr.- ■  OGR+CCC? 

CALL  Ph'-SS(IXYR.X*UXTIi-.E.C»XMf VV*Ui  .U2*U3)$ 

XPi;GR=X  nGR+VV*UlS 
YR.iGR=T  nGK+VV^l.iZ* 

2P‘  'GR=7  -DGR+VV^l.'SS 
UFTERN'I  E  TOTAL  PERTURBATIOUS 
XPG'^r  X  'DGRd)  5 
YDG'-=Yh'GR5 
2DG'^=Zi-GR$ 

RRi  'CT=X*XDOT+Y*YDOT+Z*ZDOTS 
RR.  iGR=>.*XnGR+Y*YDGR+Z*ZCGRS 
RnRrG=,v'GR*XDOT+YDGR*Y.  0T+Zn6R*ZD0T^ 

CAP'  =Ri<  OT/SGR.  U  i 
UGR=  RRLGR/Sf'Rf''0'S 
Oni.-.P=Ri  r-DG/SOR*  I  tS 
DDGP=0l.GR*2  «  0  'i 
*  REL'^TE  PERT'  RRATIO.  S  TO  OR  ITAL  PARAV.ETFRS 

XMGP  =  (DnGP/SAPMU)*A*XU*(-T.5)GRBDGR=0,0S 
DO  pq  1=1*3? 

?c  RPiiGR  =  XDGR(I)  *  WX(I)  +  RPDGR? 

SN'L  GR=S  "R(^U*  { lvZ  +  1 .  U )  *RTPS 
SNLC-R=(PPnGP/S.  LGR)*7$ 

Ei.'YZ  E«X  =  'aY*  '.ZI->  2*.*YI$ 

E(5Y  =  xZ*TXl-‘'  X*  711 
ER7=aX*  'YI-1  Y*aXIS 
E2'‘GR  =  ''  •  0? 

A.-  AV  003  1  =  1.35 

AXG'^(I)':X(I)*D'  GR-(yrGs(I)*CAPr  +  XDCT(I)*DGR)  5 
3.  t?''C-R=>^  •GR(I)*-.;X(I)+EPVGRS 
XL-^=E''  GR/XLG..5 

XL'-.=  t-nG>-/RTA)*2.0  +  ALGR+SN-LGR  5 

AV  HX-'  =  (7  GP*'i -Y'  GR*Z1 /S,.PN'L5 
hYC-T=(  X  GR*/’-Zi  GR*X)/Si»RMS 
H2G.-  =  (  Y  'GR*>  -X.  GR*Y)  /S-^RXX'S 
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*  C  ■  I  -  K  -r  ,  FHU‘^’'TIvES 

'  '  V  T  H  c  (  )  —  >  i-  C'^'  ^  K  r  +  '  r  $ 

,  r  '  l  =  ,  » 

„  '  ,  '  { .  +  T  )  r  d  >  •  ( I  )  >  •  K  - 

r  _  TC  i  -+1)  =  r-Xi--(l)  ♦  yr.r-9. 

ST  •  T  T  C^. 

>  ,  P  .  u'  ^  )  '• 

p  A  - 

+  CC  "‘vC,  KOI,-' It.-  FO.,  fP.  r.vPKlS  If.TFPP  flTiPK 

*  CA._LFI-  T  (.  -I.R.  FTIu  CP  faCP  li.TEGPaTlCI'  STF  P 
£■ .  Y^C 

*  :  ,.F  lATr.Y  -'TEP  LAPP  Pii"IGr.E  passage  »  CORRECT  ORBIT  PARAMETERS 

»  CF;  TtASPHEPIC  rPAC-  (RECTIFY  CPPIT)' 

Oi  ihL  XF(YSI'  ■)?^^33*^3$ 

•YHFi"'  1  =  '  .rj« 

GO  YO  TRL-'S 

3  IF(PECtT)cr..TRL;  »34»CKTi-.L2  $ 

’iiRECTl  =  l .  UE 

CALL  RCTFY('NPrP:  ,ESTt-  E»ECOSF.A.VvX»i  RGCCf  RKSTO»XM»X!vZ»  AYMf 
U7i - )  " 

STa-'T  I.'C  4 
Jr  P  .  ;Ek  3  V*? 

El'Yl  TAL  ■?; 

C,  TRL-  EPrPFi'  'FjT‘'L)=.  FSTOd)^  CURRENT  TINE  (SINCE  EPOCH)  TO  EPHEN.  BUFF 
s.  LirPP  IF  (NC  .TRL-iXXX  )  3S » CFLO  f  CFLCS  IF  EPHEF’  BUFFER  IS  FULLfGO  WRITE 
3  1  CO  ?  F  X ” 1 f  7 ^ 

nC'.TRLp  CNT-L+jf 

*  T.  nSF^R  riRRh'T  voLUEP  OF  XL »  APARf  F  PAR  TO  EPHEMERIS  BUFFER 

CNl-L)  =  R:\'YTC(I+4)f 
COi,  T  -  ecu  T  +  1  S 
i\'C‘'TRL  -  MJ''TRi.  +  19. 

IF(SF  «K  LIGHT  10)  X3F»  X36$  TURN’  OFF  SENSE  LIGHT  10 

V.-*-  IF(Ci'T  •  (1)  )3E  »SEC5Ef3-S 

*  r-rTER  •  iFE  "HAT  TO  I'UTFUT  FOR  PRINTING 
IF(  IFN'i  -L-i  )LI.  r.7»4i  fScCSe? 

Sri  HE  IF(SE'  'E  LIGHT  in)43»A44$  PRINT  R  BAP f  R  BAR  DOT 

.  4  vvPITF  T  PE  ‘^»RKSTO(l)^  (X(I)»I  =  1»3)^  (XPOTd)^  I=lf3)S 
,vT.->HF6=  TAF'-H+I  $ 

SFi  SE  LIGHT  IC- 
xF(sFrH-*  Sl.ITC.  35)'’Yer3fl  S 
A  ■  CO  'TIM  -  5 

GO  (’*Eu.')  r  =  lrY  9. 

\  !_2  XEI.!  (  I )  -wKS'Tf  (  1+4  )  1- 

CA;  L  Xt  r(XrLl  r  A  X5  r  ^1  1  f  EL2  r '^L3  r  EL4  r  ■^L5  >  ELF  )  ? 
fjRxTP  T  PF  i5»A.<STj(3)  ,ELlrP’L2»FL3»EL4fEL5rOL6  $ 

F3--rT.HEl-  +  l  V 
GO  TO  :*  + 

a  -  iF(  JFi;  ,  'L-Y 'Ll  H7.41  f4)  + 

ai  IF{1  7+  +  ?)--»46»4‘=$  PPPPARF  L  AT-LOL  G  r  ALT  ITUOE  »  FOP  PRINTOUT 

XL  ■  =  IG.  r  (  -r,  ,  ,  GO  TO  UO$ 

u-  XLaYzU.  '  (S  FTi  3  .-x,r*L'-  )*n,co33n65F  )  S 

AL-YrAir.  i  '  LAI  )*Ri,' YN 

IFC(l)'  .)f  XLC’  0-  =  SIS’  F(cn.»Y).2  <  0  TO  56  *9 

-  XL' '  ,i'  (  V  /  ,  )  *^  „  '  YY  ' 

IP  lx('))  L'  (  .)»  LC  '■-  =  '■LG.  G  +  ipn.  $ 

-  Xl  r  G=,  Y  r  (  p,  FTO-TC  )  *FLP2'=-'THGRf 

X  L  *  -  3  F  r  #  I  "•  r  P  R  v;  F  p  (  .  OX  G  )  $ 

I--.'  L>'(  7»r»X’prK)i. 

I  ,  C  Ai  4.  ri  (  I  ‘  i-C  T  )  9 

L  1  ■^  =  I-  YL  I'r  If'  C.'.T+l  -x 


JNP  IF  thru  I'^TEGPATING 


■U.I  r=L^  F  +  l'^ 

CAlL  '  (1)  f‘‘L  T,XL''i  G»>-)$ 

uTi.F7  IF{  (RKh-Tu-TP)*  T)GT-(0.)»GC  TO  CSE-'  TS 

*  IS  T.--RE  R'STA-.T  Ti'E  (‘  E-  EPOC>^) 

-1  IF(CNT  0(1'  ))  7^  »  Hr.LL»  72S 

*  l-''GIC  TO  '^TCh*-  Values  CF  PARA^ETEPS  .HEN  RESTART  TIN'E  REACHED 

7?1F(:.NT.  { 15)  )  I'  FOE  f  74  » IRENE  S 

7  lIF(C^T  (l^i)  )7~»76»75$ 

STo'  T  T'^C  f 

.-’LL  JN'P  RL'f.FE.r  ETUR:- 3.  RESUME  INTEGRATION 

ENu  TAC  ? 

7h  IF{  (R.<RT0+‘-KSTC(4)-CNT;\D(in)  )*nT)LT(0.)  »  GO  TO  HELLS 
RK  STO  ( 4  )  =Ci'.  T/D  ( 1 0 )  -FKSTOeCivTWC  (12)  =PKSTO  ( 4  )  ? 

Gl  to  -ELL'n 

7  =  IF(CNT..!'  (11)  )8U,81»P05 
p!'.cN'Tvr;(i7)=c  Tw:  (ii)s 
GO  TO  H  '  $ 

-jRKSTO(4)=DT-RKSTO(4)GCkTWO{13)=RKSTO(4)S 
'-2  CM  0(1'-)  =  PR(  PR  (RKST0(5))  S 
44U0P7I=1 »3$ 

P7  CNT  0  (I+IP)  =  HXI  (I)  S 

CNT'  Dd'^)  =»'XN;1(1)i.  CKTV^D(16)=  AYN'I  $ 

GO  TO  ■‘^ELL'; 

IhFNE  IF(CNY  0(11)}  F  <0.)»  RKST0(4)  =  PTS 
GO  TO  HELL‘. 

*  WRITE  EPHE"  PUFFER  ON  TAPE  3,  TURN  ON'  SENSE  LIGHT  4 
OFLO  WRITETACE3#  (EPI-FM(i)  »I=lrIXXX)  $ 

NTAPE3='  TAPE3+1  $ 

SENSE  LIGHT  4fJ  NCNl^L  =  lU  GO  TO  CNTRL2  $ 

ST  A  T  Tf'CS 
PAGE  S 

*  CSE'MD  RECEIVES  CONTROL  AFTER  INTEGRATION  OF  EPHEMERIS 

*  IF  REGUESTEt  .OUTPUT  CODE  2  OR  3»  PRINTS  X.Y.Z  EPHEMERIS 

*  wliNS  OUT  EPHE  '  buffer  ONTO  TAPE  3 

*  SENOS  Ct.NTR'’L  10  DIFFERENTIAL  CORRECTION  OR  SIMULATION 

E^,ll  TAC  $ 

CSFND  IF(IPNTFL)LT(2)  ,G0  TO  ..CPSM  $ 

REvInd  a  y  yes  -  PRINT  X.Y.Z  EPHE’ERISr  FROM  DATA  ON  TAPE  6 
IPGCNT  =  IS 
DO  ?25  ’-1*15$ 

.-05  CHFi.  (I)  =  CHEDCd)  TI-'E  X  Y  Z  XCOT  YDOT  ZDOT  -  TO  HEADING 
LIi  C=6M  S 
ITh''  P=i  TAPF.»-  $ 

R.'TAP  READ  TAPE  ft .  ( OTPT  ( I )  .  1  =  1  r 7 )  S 
ImT«pF6=  TAFE6-1  $ 

20'-  IF(LIN'C-54)227.227.?2P 

22a  call  Ht  D  (IPGCr>'T)S 

LI  C=5-TPGCr  T=IPGC\T+1=' 

207  Li:>C=Ll  C  +  13 

WRITE  '."tpuT  TAPE  5  .  Z227  ,  ( OTPT  (  T  )  .  1  =  1 , 7 )  $ 

,027  FuFNAI (2Hli  .  14X»  7F15,B)$ 

^  227  IF(  TAP^ft)  CT  (P).  f-C  TO  ROTAPS  LOOP  TILL  ALL  PRINTED 
[MTi'PFe  =  ITEF  p  S 

Pi  SMI  IF(SENS-  S.-iTC  35)C36»C0F'b  S 
C.--  CO  TINI--  $ 

RF  IND  1A  .1 
IP.-.-NT='  3- 

LI  C  =  D.  S 
ITA  -Pr.  ■^APt-  1  5  ■=• 

C3F  RFA  TA=E  1*:^.  (vTPT(I)  f  I  =  i.7)$ 

NTA^Fit-rNTAPElE-l  S 


E-5I 


F  • 

ti 


IFCLlr  .-‘^4):3erF36»F7f'  $ 

.'.PITF  TPi  T  T.PE  SfELrP.  1  « 

^,1  F0^  mT(  r7i  ,37-rEPLPFl-f-  ELENENT5  FPR  EfiCH  TIYE  STEP///)$ 

vRITF  ..  TPU"^  T--PE  ^.ELr---2  ? 

Fi  ,  ?  PC-  FTl  r-lii  f  FX.4HTI  E»i.0X»4PAXlS»llX>FFECCE'  ►PXfeHir.CLINfgXf 
nH  ■  ANu  »PX.FH-PG  P^RG»7X»aFR  A  NOiF//)J 
LI  .'-=5  S' 

IP.-C^‘T=TPGL■  T  +  -.  ? 

LI.  C=L..  t+1 

write  .  TPLT  T.  PE  5»F3r» (CTPT(I) »I  =  1»7)$ 

FO-  AT("inlt..7FjF.P)‘=^ 

IF(  lAF  1F)'-'T(  )  »GO  TO  F  3F  S 
KT^^  Fl‘--ITr'  P  5 
RE  IMD  'FS. 

r>  SN  SE'  RF  L  /6hT  4l?4EWli,.' F,$ 

1F(.  TAF-3)L'BS.  3  »D.JPSV.T,DCM?i>.4$ 
r  ij^  SF3  IX  .(X=  NCi'jTFLs. 

*  ,.\_h  PUT  FPhE-  buffer  OK'Tu  TAPE  3 

Ft  SN4  wRITF  TPE  3r (bphEN (I)»I=1»IXXX  )  s 
i\Ta.-E3=  TAPT3+_>  S 
ImT«f-F3>  =I''T4'^E3  5 

Cl  THD  IF  (SENS-.  LIFHT  ?)  )  FPS  ARE  OPS  OF'  TAPE  9 

9  SEiSF  LIGHT  2  s  YES  -  GO  00  CORRECTION 

GO  TO  i^  'BCO"^ 

•G  IF  (CMT  n(|))  0R8C0»  92»  CRBCO  S  SIMULATION  OR  CORRECTION 

STA  T  1  ■  CS^ 

PAGE  T 

♦  SI-'LATION  UN 

SAi'E  TMUT0»  RCARP.T.  OTO  -F 

ENIi  TAG  $ 

op  LI-F  =  '-no  IPGFf'T=.1  f 

ISA',  F6=  TAPF6$ 
no  ft;  irl,l=S 
'F^CHE  ■  ( I )  =OChED  ( I )  $ 

CA'->E=C4FE?'fi 

CALI  RE  .01  (ONT  .OfSTARCf  IHEDf^CARD)$ 

Fr  I,.!  '  GO  ■'‘0(4  ■  ,(siCARn$ 

o  PHI-n  =  sVARC(3)='C0f'V“: 

XL  '  PA  T  AP’FOP.-  (-STAPC(4))  S 
9  .  SI  -FH(  1)=SI  (P-  IRD)  5. 

CAPr=(i.  .n-EFso  #SIi  rh=t<*?)T; 

CARCzl  .  VSl-FT  (CAPOS 

CArLF=CvFC*(  1..n-FPS(i~)S  1 

0ALT=5i  'RC  (')/>•  PER"^  ' 

CA--,  =('-  >LT+FAPS)*(-RIf  HH)S 

COSrH=L  'S (P'-'IRi  ) s  « 

XO\,CT=(  'ALT+CAPO  *  {-COSPHIS  | 

1..  IF(:  TAi-  H)l''UFjPO.ini  S 

1ih‘  RF.INCV  ? 

(vT-i  ‘F64 ‘SAv^fs  I 

GO  TO  sr  "  I 

3  '  RF  '.  TA- 'r.,  (TXY.-  (I  )  ,  T  =  1  »4)  ,  (TFSCrd)  »  1  =  3  r3)$ 

jT  I'  FE=  TAf  1  S  _ 

Ch  hC  XL  TH=(T4\''  +X'_AVa<.)*C'r  V  S  I 

IT-"  P=('RG1  +T^'fZ)/xFLPCAS  * 

T=iTF:'- 

IT-  '  F=.  +IT  S 

T=(  i-C-i  +T,- Vc  )  /  •^ -LF  A-T  S  • 

FO  =(1.-T)»^0E'  (IT''  P)+T*EtEG(  JTEM+1)  s 
EC  ,  =  Fr  -CPi  ■  /2-  ,T 

TFT.=(T  Y7-T(.  )  * -PTI  +v..r  PTF  +  EOu  S 


Cns-’-r.  s(T  TAJ-t 
Lft  -  =X  S‘l  r**; 

Ht-  .  =C  A+1  YZ  (  -  )  r 
SI  T1-  =  tT1j(T‘ 

CA‘-'Y=Xv 

HH  .Y=C.. 'Y+T  YZ(.'*)S 
KH'-:-=C;^  '7+T‘  Y2(iOS 

rfW,.i:iS..  T(r  '  tX**2+r,,  CY**2+hM0Z**2)'? 

1  *Cu'^Phj 

XL/=RHv.  .  *51'  TH+PH0X*CCSTH$ 

XLx=(XL‘’*Sl‘  PH-XLX)/Rh.l* 

XLY={C>.5T}-!=«=FhOY-SI'.TH*hl-OX)  /RH0.1S 
XLZ=:(XL7*C0‘^PH+SII'JpH*Rl-:02)/RH01$ 

IF(XL2) 1 0U,106#106S 
luA  IF(>LX(  i)  )CON.PA,107»CO,.PAS 

I. 'YIFC'LY)  1  0P.FRR':P»1C9$ 

1  IPTE '’2=3.  ‘1*91  AV2‘i; 

GO  10  i_  yOG2$ 
iuCTP,  F=Pi  :v?s 
GO  TO  i.  'jO'cTSR 

CC-  PA  CAPAzAT 'tv(XLY/{-l,C*XLX  )  )$ 

IF'IXLXC  1)  )110»110»111$ 

I  i.'  IFOLY)  I12.113»113a 

II  1TF.-P=Ca-A+PI$ 

GO  TO  c  vnG--$ 

11  5TE' P=Ca  =  A+2.0*PI« 

GO  TO  C  VDGPS 

II. 3TEiv.P=CA^AS 

Cl  '-DG?  CAPAzTE  P/CONV? 

"~XLZ**Z$ 

IF(TFFP)LTE(C.)»Sf'LP-SI6XjF(90,*XL2)P  60  TO  H2DEG  $ 

SMLI  =  .TAK(XL2/S0PT(T£tYP)  )/CONV  * 

P^uFG  TE-F  =  (ORGTP  +  TXY2)  /  XI^NPOA  $ 

ITE'  P=T~tv  p$ 

CNTV.n(l  ')  =  ITEi  P+  ORGi.AS 
CNT  -r,  (1  ’)  =  TE  'P  -  ITEi  P$ 

CN’T'.nd')  =  CNV.'D{lF)*Xi''NPrjAS 

*  A  FUACi-ROuTIFP  PUST  BP  EiMFREi  HERE  TO  PUNCH  OUTS 
♦A.  OBSVCAR-.  USING  CASE  NO  AS  SATELITE  NO.S 

*  STATIOk  no  pro:  CNT“'D(.')  IN  BCD >  CURRENT  YR$ 

*  DAY  NO  PROA  .CNTn'DdA)  ,  TO  BE  CHANGED  TO  MONTHS 

*  ANi!  DA'i  and  fro.-  CKTV.DdS)  TO  HRSr  MIN  AND  SEC.S 

*  s 

*  $ 

DO  .-'00  ■=2f13$ 

ITP  Pl=i-1 

IFdPOT  ■  (D-CNT'-.Ddu)  )30  0f3COf301S 
3VjO  COi'TINl.ps 

3i.l  ITF  P2='NTl-.'' d4)-Ti‘0T0(ITEi-iPl)  S 

ITF-P3=(CNT  DdE)/60.n)S 
TE-r?z(-:KTi-.'  (lF)-(ITEVF3*6a.O)  )S 
ITP:  P4=  lEMPPS 
ITri  P4=~EN-P?+,  vOOOl  S 

TE  P2=(TEMP2-ITEMtP4)*Ai..  S  SECOI  DS  A^  D  FRACTIONS 

IF(-F,vpo)  LT(0.n)»  TENP2=0.n  $ 

INT:  P2=TEKp?  s  SECO  CS 

JX'T  P3=(  (TE*  P2-INTi  P2)*10n00,  >  +  .00000001  S 

ST4  T  T=^C  S 

TV-  INT  P2 

SR  4  32  S 

TA-  INTI  P2  S 
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S  HI  hC,  IM  P2 

TO'  II  T  P2  - 

Ti-’-  It'T  P? 

SP--  ■■‘p 

TO  ir  T  P3 

H  r-I’  PCi  T  P3  1- 

TO  l^'T  F7  T 

Er  ,  TOv  t 

TP  ■  ‘  -'-I''  -  VP4  0000. 0? 

TF  ■  =S"  CiO’  .05. 

TF  PA*] 00. 0.05 

TE  4=r’  01*<r“PrRS 
00  (  '.  QCl^:  1  1  =  1  »35 
b  XLS'.  BX(l  )=Np:CXII)/Rh015 
TF.. '  F=1.0-XLSL'r,7**25 
IF(TFr-.'pP)X9l4rx914fXyiS5 
X.-.14  IFCXLSL  ■'Z)X916fX917.X917S 
Xc-ib  TE.''PB=“1  .0*PIOV2$ 

GO  TO  lFTA?05 
Xti7  TE.-.PF=P  lOVFT 
GO  TO  L.TA2n$ 

XC15  OFlTA=S'''RT(TEiVPF)* 

TF  -'.PFrATANi  VLSL-Z/DELTA)S 
OLTA?..  DELTA=TFMP5/C0.-.  V$ 

lF(>LSo''X(l)  )C/  LFA,>'90/»CALFA$ 

Xc.  7  IFOLSt  Y)XC08»;-:RRO'  »X9np$ 

Xvry  TE..'PFr.3.U*pT0V.'5 
GO  TO  ALFPH'^- 
X9‘.9  TF.-''F=?-oV25 

GO  TO  Mi.FPh? 

CmLFA  ALPRAsa  ^A^.  <  >LSGPY/XLSUGV)$ 

IF(XL5t.  X(l)  )XFll»A911rX910f 
X'Alu  IFOLS...  Y}X“12»X913.X9i7S 

X^ll  TE>FB  =  M',PhA+PI.. 

GO  TO  A'  F?h? 

XC12  TE.-tc;=a1.PhA+2.i  *PI$ 

GO  '0  mI^F2H5 
t3  T‘^.  PF=.-'  PHA5 

AI.F2H  ALP'-  ArT-.WPF/  (CUK'V*1F.0)5 

CPc'  T=-1  .0*CAP'f*THOOT5 
CPYL  T=C  iPX+ThDJTS 

RRATE  =  XLSlJHX*(.jPSCC+CPXCT)-FXLSUPY*(OBSCr.  (2)+CPYnT)$ 
RRATE=HPATE+XLSUBZ>i‘0PSCr(3)5 
li-  IFC.  INE-nU)  ligrll9,120  5 

1/  CALL  Ht  >D  (TPGCi.T  )  ? 

LI.^i'^  =  5  iri-.CLT=IPGC:  T+1  $ 

11=  LI.v"=  LiNF  +1  $ 

ALF.*'  =  Al  'HA*  if.  .'5 

WRITE  i  .  TPLT  TAPE  5 » P 1 f CNTwC ( P ) » TXYZ ( 1 ) f RPOI f RR ATE » ALE A , 
0ELTA,C'PA»‘'N.L.-  s 

FI  FOH  AT(=hlli»  A4.7Xr7FlF.P)  5 

*  SE'.SF  5  ITCH  3.''  Pi.KCh  AZ  A(\D  EL  CARPS 

*  SE  HP  H  ITC-  3t  PUr.  Ch  RA  At.P  DEC  CARDS 

*  SE.'SF  S  ITC^  3P  PUNCH  RANGE  CARDS 

*  SE'SE  b  ITC-  3.'  PUNCH  RANGE  RATE  CAROS 

IF  (SE  ?E  S.  ITCH  31)  73n0f7301  S 

7.-U  Ink.'h  =  -...PHa  5  RT.  ASCENSION  TO  FIXED  POI  T 

RAHPKzi  RAI-  3.  HOURS  TO  FLCATI^6  POINT 

RA- ,.v=;(  iLPH-i-P..FRK)*Hn,  ?  FRACTIO'  AL  HONRS  TO  MINUTES 

iNRAv=,.  • -•n.  3  TO  RixE"  p:int 

RAF^'-^=^  pa:  5  BACK  TO  FLOATING 


RA‘;FC={  AVi  -R,FPK)*AO  0.  f  SECnNr«;/10  i 

lN-<.-  5=..  S-C  5  CO.' VERT  TO  FIXE'  POINT 

iJEr-  iA=,  -LT/'  5  ASSUME  ''ECLINATION  TO 

OEL'i'.=R'  iJS  Pe  POSITIVE  =“- 

IF(  FLT  )  77QP»7303»73 '.T  $  UNTIL  PROVFN  OTHERWISE  — 

7;-'  del'=^n-:a  ins  S 

OEFTAz-ELIA  $  ChANGE  SIG^  OF  DECLINATION 

77' 3  INI, Cn=i  FETA  S  DECLINATION  DEGREES  TO  FIXED  POINT 

DCi-  K  =  i  DCD  %  INTEGER  TO  FLOATING  POINT 

DC“  IN=( 'EET  ’'-DCFRK)*60.  $  FRACTIONAL  DEGREES  TO  MINUTES 
IMilCM=.K>:iN  $  FIl'UTES  TO  FIXED  POINT 

DCFPK=I  DCN  S  PACK  TO  FLOATING 

DCStC=(.:CMN-OCFt;X)*AOO.  S  SECONDS/10 
iNDCSrnOSEC  $  TO  FIXED  POINT 

START  TAC  S 


TMA 

INPAH 

$ 

SRA 

32  S' 

TA". 

INRAH 

S' 

BINJBCL 

inrah 

S' 

TAI* 

INRAH 

s> 

TMA 

INRAM 

f 

SRa 

32  T 

TAm 

inram 

S' 

S  0lN?RCf;  IMRAM  5 

'  TAlv.  INRAM  s 

TMa  INRAS  % 

SRA  32  T 

TA-''  INPAS  * 

S  dlw'PCfj  INRmS  J 

TAi'  IMR«S  ? 

tma  imdcd  » 

SR  A  32  S' 

TA'  INDCD  E 

S  BlN^flCC  INDCD  'N 

TA.v  INDCD 

TMh  indcm  % 

SRA  32  T, 

TA-  iNDCfv.  "f- 

S  eiivr-RCO  INUCM  :T 

TA^  INUCM  T 

TMa  INDCS  S 

SRA  32  $ 

TAV  INDCS  5 

S  BIi'.OPCC  INDCS  S 

tan  INL'CS  T 

END  TAC  S 

PUf-CH  (^BSC?)  » JXYR»CNTwD(P)  »IXYRrITEMPlrITEMP2f 

ITt-  P3f  lTEN  P4flNTMP'='»lNTMP3rlNRAH»  INRAM  fiNR AS  »DELSN»  INDCD »  INDCM » 
INDCS  i 

ChSCR  FOR'  AT( T2»3Xflh2r4XfA4»Ilr4l2rW?»W4f lH-f2W2rW4»Wl»W3»W2»W3  )  $ 
77-11  IF  (SE.  ?F  S-ITCH  30)  7400»7401  « 

STA,  T  T  'C  ? 

PL.!  S  A/  * 

X-  tns  a/  -  S 

END  TAC  % 

Ti-'-iQ  iNA/nrC  ■'PA  i- 
AZF-K-.  AZ..  $ 

AZ  ''N=(CAPA-AZFRK)*P0,  f 
IN'/iZV  =►*  IN  $ 

AZF^-  K=i^  AZi“  S 

AZSFC=(AZMI  .-AZFRK)*6000.  S 
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1  N'  <>  /  fi  _  M  S  F  C  S 
llsii-LP=S  LH 
■EL/-  K=i  bL<  ^ 

EU-  3 1'  =  (  =i'^LH-ELr- “K  >  .  ? 

i.'  =  r  ;./II  $ 

ELF  K=i  ELf  5 

EUS-C=('LWI  -ELFRK)*60i',  $ 

IMr'  S=r  ’.SEC  S 

ST  a,  t  tac=- 

SR  A.  32  ^ 

TAi‘  I('A?D  •• 

S  BI.'-‘eCb  INa7D  V 

>  TA*-  r 

TM;.  INM;'iv.  -i 

-•  SRm  3?  9- 

TA.''-  lNA/>".  T 

■S  bl  -  BCi'  IMA^dM  •>•. 

T  A  ■'  I  h'  A  ?  iV  f 

TN:a  I^A7S  5 

SRA  3?  s 

TA'''  INiA.'^S 

S  BIi'  ’BCl  INA“S  ;) 

TA'-  1K!A/!S  3 

TMm  I^'ELD  9 

SR«  32  F 

TA:'-  I  NELL!  T 

S  INELG  9 

TA-'  I  WELD  9 

TN'm  IWELM  9 

SRa  3?  9 

TAv  INELi^.  ?>. 

S  B I  I'M  -  PCD  INEI.M  9 

TA'-i  INELW  9 

TM'A  INELS  f 

SRm  3?  9 

TAi-''  I^'tLS  9 

S  PC"  IWELS  S 

TAv,  IWELS  9 

END  TAC 

PUh‘:h(i..RCA;v)  ,I  .YRfCi  Tho  (8)  f  IXYR  ?  ITE^'P!  » ITEV02f 

IT^  P3  f  i  TEi'FA ,  iNTYP.5  ,  I^T^.P3 1 INAZD » INAZ'’' » INAZS  r  I  WELD  j  INELM,  INELSS 
Dm  'AR  FOk  AT(  T?,3X,lr2,4X,  A4,  Il,4lP,lv?,W4,  W3,>*/2f  2V.4,W?,W3)$ 

7mi1  if  (SE'  =E  S  ITC.p  32)  7500,7501  $ 

7‘^i''ij  EXF'v.iTzl.O  9 

00  -55I'  I  =  1»R9  5 
EX"  JTr:i  ■  ,*F -PJ-i  S 

IF(TFr-’M  )  LT  (EXPJT),  to  TO  7550  5 
7‘  ti  CO  "riM.  ■  % 

7b:' b  IJTTrl  • 

STm^T  T  'C  9 
SR^''  3?  M 

TA  IJTT  $ 

S  Hi ■  'bCi  IJTT  $ 

TA  IJTT  S 

EN'‘  TAJ  <! 

TE--u=TTivPA/FX.-’JT  S 

PlJ  CH(U  CAr,)  ,lAYR,Cf  TVl  (8),IXYR,ITE-'Pl,ITEy02,ITEWP3,ITEMP4, 

INT  P2,  lAT" -^3,  I  tMPA,  IJTT  $ 

r,  "mR  FO-v  ATi  ?,3V,1,-1,4X,A4,I1,4I2,  •2,1*4,5X,R11.11,1H+,  ■?)$ 

7>:-  1  iFfcri:,-  S,  ITC-  33)  76'  C,75f>l  5 
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7f.no  RRjTTz  .1*(  *37922. 43-inO, ♦RRATF)/{37922, 43+RRATE)  )S 

is=in$ 

PU^CH  (  SSC>')  nXYR»CNTt-r(8)  »IXYR»ITEI«P1»ITEN'P2» 

ITS '  P3  *  ITFr  P4  f  lUJHP? .  IMWPS  f  IS  *  RRJTT  S 
O&SCR  F0RAT(I2.3)(,lh3»4X»A4»Il»4l2»h?»W4»8X»I2»FP,9)  $ 

7hPl  GO  TO  1  -4* 

START  tags 
PAGE'S 

*  DlPFE.^?NTIi»L  CORRECTION'  RUN 
ENH  TAC  3> 

Oh -CO  REwiNDV  S 

I0B''T2=I0BCNT  5 
IF  (SENSE  LIGHT  4)121»122S 

121  SENSE  LIGHT4S 

IF  {EFLAG)123»123»122S 

123  REWIND  3  *  IF  EPHEV.ERIS  ON  TAPE  3^  REWIND  3 

122  NTAPE3-  NTAPE3a  S 

IF  (SENSE  LIGHT  3)  124»  124  S  TURN  OFF  SENSE  LI(5HT  3 
124  IP9CNT  =  Iff  SUM  =  0,08  SUM2  =  0.0$ 

IF  (SENSE  LIGHT  2)  INITL»125$  IF  FIRST  PASS  THRU  OBS»  RD  FM  CRD 

*  READ  STATION  AND  OBSERVATION  CARDS 

125  IF  (IRPT)6T_{9)..  IRPT=0$  SET  NO,  OF  TIMES  TO  REPEIAT  CORR. 

RREC  call  Kt '"‘UtK  ( bTARC  »  is  I  CN7»  L57CNT » I  as  iZE » IDBUr  »  XWPER  )  $ 

START  TAC  $ 

TMA  LSTCNT  $ 

JMP  CHGNXN  $  SET  UP  LEAST  SQUARES  ROUTINE  FOR  MATRIX  SIZ 
PAGE$ 

END  TAC  $ 

*  READ  OBSERVATION  CARDSr  STORE  ON  TAPE  9 

IALL=lffIOBCNT=0$ 

♦Enter  rcapo  amd  read  i  obsv  card  storings 

*UTIME»  ALPHAfQELTA»RANGE»  AND  STAID  =  STA  NO  IN  BCD$ 

♦When  LAST  CARD  IS  READ  SET  IAUL=2$ 

X130  CALL  RCARD(SATEL»STAIDf ASIGlflBMUTHf  DAYNOr  ALPHAr 
DELT  A  t R  ANGE  » RODTO » UTIME » NC ARD » XMPER ) $ 

GO  TO  (X132»  131) r  NCARO  $  CHECK  IF  ALL  OBS.  CARDS  READ 
131  REVINO  9$  ALL  OBS.  CARDS  READ  -  GO  DO  CORRECTION 
GO  TO  INITLS 

’X132  1  =  1$  NO,  OF  STATION  RECORD  IN  STARC 

START  TAC  S 
TMA  ISTCNT$ 

SLA  3$ 

AD  $ 

AM  C/HLTfSTARCS 

TDXLC  t3$ 

TAM  JXXYS  JXXY  HAS  ADDRESS  OF  END  OF  STARC  TABLE 

*  FIND  station  IN  STARC  BUFFER 

ZXXY  TMA  STAIDS 

TMD  f  3$ 

OAED  H134$  SEARCH  FOR  STAID  IN  STARC  TABLE 
TMA  N/9T15$ 

AMS  I  S 

TMD  JXXYS 

AIXOL  9»3  $ 

JNO  ZXXYS 

TVC  STAIDS  STATION  NOT  FOUND  -  NOTE  ON  FLEXO 

TDM  BLAB3+2$ 

TMA  C/HLT»PLAB3ff  C/HLT»5S 

JMPL  6$  ANu  ON  OUTPUT  TAPE  5 

END  TAC« 

WRITE  OUTPUT  TAPE  5f  705»  STAlDff  GO  TO  X130$ 
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7-  S  Ful'^ATUnhlOSTiTIOK  »A8»  lOH  ^OT  FOUND  )$ 

-134  PHI  .j  =  STA’fCd  +  l)  ?  CET  LATITUDEr  EAST  LONGITUDEf  HEIGHT 
XL.*  flA  -  S1.'FC(I+2)  r.  oALT  =  STARClT  +  3)  S 
e;T'PK  =  ST'RC{I+4)«  GET  I^'-XC 

GO  708  =  1»4  ? 

7i.  IF(  SI.^I  (J)  )  E  (G,)»  ASIGKJ)  =  STAPC(I+J+4)  S 

XV  '  TS  =  UTIVE  -ORGTr*.  +  XVKPUA*  (DAYh'O-ORGDA )  $  ''INUTES  SINCE  EPC 
TFw  =  'l>^UTS  -  TO  <5 

Ip<TF,VG*nT)  LT(0.).  GO  TO  7r6S  FIN~.  IF  THIS  TIVE  IN  EPHEMERS 
IFCTFV.P  itt(TF-X  L'UTS))  GTE  (C.)»  GO  TO  707 f 
7'  b  aRTTF  .-'  TPUT  T-PE  5»  7i:9f  STAID»  CAYNI0«  GO  TO  X130  $ 

-,'9  FOP  AT  (IPhlOOPSERVATION  FRCV  »Aa»3H  ON » F4. 0 , 18H  OUT  OF  TINE  RAN 
GE  )  $ 

7 '7  Sli^PH  =  SIfi  (PoIRO)  $ 

TE-:'=(1  .a-STMPH**2*’^PSiiC)4 
CAPC=(1.0/S^RT  (TEwPIIa 
CAPP=c«pc*(.i,o-EPSGn)  a 
CAP  7=(CAPS+0ALT)*(-SIiNiPH)$ 

C0SFH=C  .S  (PHIhDIS 
XOWCT=(  ALT-i-CAPO^I-CCSPH)* 

XL'  PT.->  =  THGRi.  +  XLAHeA  S 

IOAY=DA''i\lO“CRGi.A  +  IT  $ 

IITT=UTi;v.E/144i.  .  $ 

T=UT  I  Vr./ 1440.-7  $ 

T=TITT* 

Efl.c=(l.-T)*EQEi.  (IDAY)+T*ESEP(IDAY+1)  $ 

EG'!=:E0-tC0iv'>'/24'.'!,S 

THTo=X-  '  UTS*RPTIM+XLVPTH+EQG  $ 

COSTh=C'.S  (THTm)$ 

CAPX=XC  •CT*COSTHa 
SI.'.TH=SI,\<  (ThTA)$ 

CLVsCOS (THTA-XI  AMBA)$ 

SL»=SIi.(THTA-Xi.AMBA)a 
CAFY=Xv  'CT*'^IN'rHs 

.1=3  call  l-TOPS(IOTYPE)?  confute  L  PARf  ETC. 

IF(PFNSI  LIGHT  5)  X130»  151$  GTOBS  TURNS  THIS  ON  WHEN  OBS  DONE 

1-..1.  WRiTETAJEPf  SATELr  STAID  »I0TYPE»XMNUTS» 

(CAPXd)  ,1  =  1,3)  »  (ASUBXd)  »l=l»9)  »ASI6if  lAXD^SPHA,  CPHA»  SDEL» 

CC''=L,CLV,SLM,IPMUTH,ESG  S 

IOHCNT=TOPC:'T+i$ 

I0-NT)?=IOBCNT  $ 

IFdCTYTE)152,.1  52»X151$ 

X1E3  IF(  I0TY.-E-2)Xl?2f  Xl.S2rXl30S 
Xl-PALP;  A=;’,,0(?uELTA  =  0.0$ 

GO  TO  1=3$ 
ipo  RA:."-'F=..'.Q$ 

GO  TO  .1  =  3$ 

STA'T  T'’C$ 

PAGE$ 

♦  OR'*  SVATIO.'S  AR-  Or  TAPE  q  -  VAKE  PASS  THRU  THEV, 

ENO  TAC  $ 

I-  ITL  SFvEE  LTGHT  2$ 

IF(5ENbE  LIGHT  4)154,155$ 

I'-'  REA'  TAH  =  3»  (=PHt  ■  (I)  ,I=i,IXXy)  $ 

SFkSF  light  4  $ 

.x;TAr-F3=  TAF  =  3-i  $ 

1  =  5  RC'T=0.  'r.RC  T2=0.0$ 

BCC' T=o,n$ 

LST-P=1  EEC  T=i .0$ 

ITPTAC=  $ 

IPO  T  =  .  I  PC  T2  =  0$ 
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I 

*  E^■r':R  i_-t5T  SG'  6RF3  t-F  FS 

ST.  TT~  5 

o  -  LSu  S 

F  .  TAu  S 

♦  R.-SS  THRU  OBS-RVATIO  S 
Fti  CT  IF(S.FNS-  LI'^HT.’)176»179S 

*  JUST  DI'-  Ra  CR  aZI;  UTH  -  TO  OECL  OR  ELEVATION 
17A  ARS  !,=.v-'SIi’T 

on  (VI.-  )  I  =  1.3  $ 

XiiU  ARAVi!I)=WST- (It+I)  ^ 

CAlL  CC-FF(ARAY,If X'- FER)$ 

GO  TO  { 1  80  f  r’ADC  F  .Oi’oITl )  .  I  S 

l.'.n  IF{I'«ST  >-2)  Aiau.A180.RlPO  S 

cl  80  SU.  ■  =  a“SIU**2  +  SU’-  S  FOR^  SUV  OF  SQUARES  OF  RESIDUALS 

RCKTsRC  T+1.0  ? 

IRC^T=^:C^iT  $ 

GO  TO  F'iNEX  $ 

Rl'^O  SUi'.2=RF5ID**2+SUM2  S 

RC.  TR=i  -'NT2+1.0$ 

IRC  T2.=JCNT2  $ 

FiFX  GO  TO  lSGPS  add  these  COEFFICIENTS  TO  LEAST  SQUARES  MATRIX 

I'/F  IF(.'CNT+RCfvT2>.1P,l.lAl»PR0BXX  $ 

!»■  1  DO  182  T=1.18  S 

r'2  CHEC(I)=OR5rD(I)$  S^'T.  STA .  TIME  RHO  RESID/KM  RA  RESID/KM, .  .ETC. 

I.'  "'  CALL  HE 'D(  IRGC'.T)  S 

IP«CNT=TPGC:'T+1  S 

LliviErE  S 

GO  TO  TSEOF  $ 

Pi.’BXv  if(J'.i<5t:  -  X)  .-.lag.  Biag.  Fieg  s 

F;-9  IF(IWST-)  E  (3).  APRNT13  =  RESIOB  GO  TO  PROBSS 

APR.'  T7i  =  RTSI,.  S 
APR  T5F=APS:L  $ 

♦  PRI''T  mCCORGING  to  PAGE  595 
F.-  ir.S  IF(LIKi-.-54)PR0'-SX.PR0BSX.PR0BSY5 
P.  .  hS'i'  cal.  Hr  'D  (IPGC^T)$ 

lPoCUT=TPGC  T+.IS 
LI:  :=^\> 

P.  o5^  LI'  .’—LI  E  +  l'.' 

wRiTF  '  I  TPUT  T  :PE  5 » CVTOBJ .  WSTO  ( 1 )  .  WSTO  ( 2)  . '-'STO  (4)  .  APRNT41 » 

AP-<  TSrS.APFt  T71.APR' Ta6.APR^T01^APR^T13.  APPNTS  S 
C  VuR..  FOh  AT('H10.A3.3X»i-.'l.7E14.7»2X.A4)S 
C.T'oP  APh  T4l  =  0.0  5 

AP' .  T58  —  U.O  “i 

AP«,  T71  =  0,0  G 

AP.;  Tpr.  =  0.0  '• 

AP.<  T03=U.U  S 

AP  ■  Tl,-.=  O.t)  S 

AP  L  TS  =  AP-Y.T:-  5 
T'-rCF  IFFIOP  T;j)EFCH  . EFCH.-^  .  i 855 
I-  I  '  I- T2-IO-".T?.-l  5 

viO  iC 

'  T1  Of.  :.  T=0  CivT+15 

r  aF  .  TS  r  FT“hS  T 

iF  :8E  -t  light  3)  178.  PROPXX  F. 

ac  -  Tc  .  rPH'-ir  5 

jC  r-  i.Fo  5 

ad  Tj  =A'  'CL  ■' 

.^r  TO.  =  ,  -SI  5 

s~r.  I  \.~'S  F 

-  ‘  jlFL.STC  T-I  .Ch  i-IRC'  T2)CTV1.CTV1.U1'KER5 
^iT  ‘  T  i 
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Ut  KER  TMA  C/HLT*;  C/HLT»6* 


JMr 

L 

f<l! 

■•'IT 

9 

JMR 

L 

5$ 

Er'f. 

TAC 

y 

r~vi 

GO 

TO  L<7 

QS1-. 

FO 

FILL  It 

A  MATRIX 

J  = 

LST" 

kT*+2  ^ 

DO 

720 

=  1#G$ 

7,.U 

SN' 

■■  A{r.  7 

=  NLS' 

.■>  (  K  )  5 

SAVE 

A  N..TRIX  IN  SQMA 

00 

7  21  ■ 

=  '#l:- 

TCNT  $ 

7--1 

S 

Al,\) 

=  GLS 

^(K)5 

SAVE  B  matrix  I 

■_MO. 

=  '$ 

IF  (l^C>.  E  (’.))  722»  723»  722  S 


72?G0  TO  L-GSS 

WPl'TF  'oi  TPUT  T^.^E  5*7245 

-,'4  FOR  •  AT("9H2'1C0'.RECTI0K  l^ADE  TO  ORBITAL  ELEMFNTS  AND  STATION  POSI 
TIG  .)5 
GO  TO  t;  EKT'!- 
GO  TO  C  > 

7-3  J  =  LSTCNT**2S 

nu  725  K  =  If..  S 

SO.^(K)  =  S'N'A(K)S  iVATRIX  A  TO  MATRIX  Al 

nc  72i-.  K  =  1»  LSTCf  T  « 

-,-■6  Sw  P(is')  =  SGBA(K)i  MATRIX  P  TO  MATRIX  B1 

L— n,' 

K  =  L  *  LST'^NT  5 
no  727  =lf-:5 

7>'7  S0'-''(F)=0.  '  S^T  1ST  L  ROWS  OF  MATRIX  Al  =  0 

7  8  K  =  L  ♦  LSVTNT  +  1  5 
Ri  =  K  5  $ 

no  ’29  =K»  * 

7<  ■  SO.  -(N)  =0.'^  SET  1ST  ELEMENTS  OF  RE.' AININ  5  RCWS  =  0. 

L=L+1$ 

IF  (L  -  LSTCNT  )  72P*  730»  730  5 
77"  Kzi.STCi  .+15 

L=a*LST  .'NT-::*!  ASIZE? 

UO  7  31  ::ifi.»K5 

7.-''  SO  =(|V)  z  l.OS  SET  FIRST  L  DIAGONAL  ELEMENTS  =  1. 

UO  732  =l»e5 

73-  SOH‘MM)  =0.05  SET  FIRST  L  ELEMENTS  CF  MATRIX  bl  =  0. 

(.M.O;.=  =  25 

IF  (MC.'  £(2))  733»  734#  733  $  SHALL  WE  CORRECT  STATIONS  ONLY 
T-iPUO  735  =lfJ5 

7:'-  GLS0A(|>)  =  SON'H(M)  5  YES-TRANSER  Al  AND  B1  MATRICES  TO 

IF(IASji‘'E)  E  (u).  v.iUTz  OUTPUT  TAPE  5#  773(i  GO  TO  CUMBAC  $ 

773  FOR  AT  (2H1.:  /  38HinN0  STATION  POSITIONS  TO  BE  CORRECTED  )  $ 
no  736  =  1#  LSTCNT5  WORKING  AREA  USED  BY  LEAST  SQUARES 

77r.  .O.SG  (M)  =  S.;FB(.“)5  SUBROUTINE 

GO  TO  SOS'!.  am:  GO  SOLVE  EOUATIONS 

WRITE  UTP'.'T  T.ftPE  5#  749$ 

7-9  FOR  AT(*-3H?  CORRECTION  MADE  TO  STATION  POSITION  ONLY,  >5 
GO  TO  C  TKT'^ 

GO  TO  C  i'PaC  -t 

# 

734  J  =  LSI  MT  **?.  7 

no  75P  -  =  1,J  $  M*.TRIX  A  TO  MATRIX  A2  (SG  'C) 

7--  SO  C(K)  =  5'>A(K)5 

.10  ■739  =1#  LSTC.vT  5  matrix  B  TO  MATRIX  B2  (SOBC) 

7.-  '  SOAC(K  )  =  S  'BAI!.  )$ 

IF!  ST.-  T-Ol  12734, 1-134#1215FI 
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L'l  KER  TMA  C/HLT#'  C/HLT»AS 

JNVL 

Hli  :n  T  3 
Jf'-L  B9- 

e^^.  TAC  9 

(■-VI  GO  TO  L^QSl"  PC  fill  Ii  A  •^'TRiy 

J  =  LST  ‘kT**?  • 

DO  7?n  'rl.JS 

U  S-'-  A(h'  =  '^LS  ■■■'(K)3  SAVE  A  N-TRIV  lA'  FOMA 

00  721  =  7»L-TCM  •« 

■r  i  ?.  AC.',)  =  CLS  7(K)?  save  B  IVATRIX  SOBA 

■-.■^O^.'  =  ',5 

IF  (VCD  E  (’.))  722 »  723 »  722  S 
7'->:?G0  TO  L-wSS 

WRITE  v.i.TPUT  T^.pE  5»724S 

•-,'4  FOR  ■  AT(~9H2'1C0ERECTI0N  KADE  TO  ORBITAL  ELEMENTS  AND  STATION  POSI 
TIC  .)i, 

GO  TO  C  EKT*!^ 

GO  TO  C  TVPAC  > 

f 

7-3  J  =  LSTCNT**2S 

nu  72S  K  =  1»0  $ 

T.b  SO.^CK)  =  S'MA(K)S  iVATRIX  A  TO  MATRIX  Al 

no  72f-.  K  =  1  »  LSTC'  T  J 

7-6  S-^'P(tN)  =  SGeA(K)i  MATRIX  P  TO  EATRlX  B1 

L=n> 

K  =  L  *  LST''KT  T 
DO  727  =l»':s 

7r7  SO.  '(M)=0.  '  Si-T  1ST  L  ROWS  OF  VATRIX  Al  =  0 

7  8  K  =  L  *  LSI  ONT  +  1 

ivi  s  K  +  n  S 
DO  29  =K.  S 

7;  r.  SO.  -(('')  =n.A  SET  1ST  ..  ELEMENTS  OP  RE.' A  IN  IN' 5  ROWS  =  0. 

L=L+1J 

IF  (L  -  LSTCNT  )  72P»  730*  730  !R 
7.''  Kzi.STCi  ••+13, 

L=p=*‘LST'.'NT-3*IaSIZ£? 

UO  731  =1*L*KS 

7.-''  SO  =(iV)  =  1.0$  SET  FIRST  L  DIAGONAL  ELEMENTS  =  1, 

uO  732  =1*6$ 

73-  SOH‘'(M)  =0,0$  SET  FIRST  L  ELEMENTS  OF  MATRIX  bi  =  0. 

(.VO:.-  =  "$ 

IF  {(.■€(  E(2))  733*  734*  733  $  SHALL  ta!E  CORRECT  STATIONS  ONLY 
7  <300  735  =lfJ$ 

73-  0L5'.7A(..)  =  SOMH(M)  f.  YES-TRANSEP  Al  AND  PI  MATRICES  TO 

IF(lASi^E)  E  (o),  ir.KlTE  OUTPUT  TAPE  5*  77311  GO  TO  CUMBAC  $ 

773  FOR  AT  (2H1';  /  38HinN0  STATION  POSITIONS  TO  BE  CORRECTED  )  $ 
no  736  =  1*  LSTCNT$  WORKING  AREA  USED  BY  LEAST  SGUARES 

73ft  >C.S(3  (,v)  =  SGBBCi'')?  SUBROUTINE 

GO  TO  Sf'SN  and  go  SOLVE  EOUATIONS 

WRITE  UTP'  T  TAPE  F,  749$ 

V-9  FOR  AT(--3H?  CORRECTION  N’ACE  TO  STATION  POSITION  ONLYtl-t 
GO  TO  C  'FKT'»- 
GO  TO  C  »'-'PmC  ■> 

* 

■34  J  =  LSI  i^T  **2  ? 

DO  --^P  '  =  l*J  $  MATRIX  A  TO  MATRIX  A2  (S(3.C) 

7  -  SO  C(K)  =  57MA(r.  )S 

DC  ■'’39  =  I*  LSTC,.T  $  VATRIX  B  TC  M/iTRTX  B2  (SOBC) 

7-  SARC(K)  =  S'Ha(“)5 

IF(  FTi,  T-f:)  12’,34,l-;i34*1213F$ 
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CLEAH  first  six  rows  MATRIX  A2»  EXCPT  1ST  6  CL 


1>.13S  .v  =  V- 

=  LST  '..-T  -• 

K  =  F  *  LST-'r-T  T 
7-  UO  "/Ul  '.=V^*  $ 

“41  SO.-C(L)  =  U.O  S- 
!v*=.-’+LST  :i-.Ti 
N=.M+LST'NT 
IF(''-I<)74P,740»742$ 

7ir.'|vi=K  +  lS 

00  7U3  ‘=F»wS 

7‘ 3  SQ.-C(L)  =  0.0  S  CLEAR  REMAINING  ROwS  OF  MATRIX  A2 
M  =  K  +  7  i 
K  =  LSTCNT  +  1  « 

DO  744  L=M.0.K5 

7U4  SOVCCL)  =  1,0  $  SET  DIAGONAL  ELEMENTS  AFTER  FIRST  6  TO  1,0 
DO  745  L  =  7»  'LSTCNT  $ 

745  SQHC(L)  =  0.0  S  CLEAR  MATRIX  P  AFTER  FIRST  6  ELEMENTS 

12134  lmoi:e=  $ 

IF  (MCc'’E(3))  746»  750  »  746  $  ARE  ViE  TO  CORRECT  ORB  ELEMS  ONLY 
7'-ifD0  747  '  =  1.J$ 

747  OLS^Ad")  =  SGMC(M)$ 

DO  748  =  If  lSTCNT  S  YES  -  TRANSFER  A2»  B?  MATRICES  TO 

748  QLSGB(iO  =  SQBC(M)  $  WORKING  AREA  USED  RY  LEAST  SQUARES 
GO  TO  LSGS  $  AND  GO  SOLVE  EQUATIONS 
white  ''UTPUT  TAPE  5f  737S 

171  FOR'  AT(43H20CORRECTION  MADE  TO  ORBITAL  ELEMENTS  ONLY,)* 

GO  TO  C7EKTS 
7‘'UG0  TO  C'JMBACS 

MOVOB  REAi.  TAPE  9f  (LST0(1)»  I  =  lfl6)»  ASIGlf  lAXD  f 
SPh A  f  CPHA  f  SOEL  f  CCDEL f COSTH » 5INTH » IBMUTH  f  EGGS 
I  -  lYXXS 

l'^5  IF  (NTAPE3)  LTE  (0)f  I  =  NCNTRL  S 

♦  FIND  OBSERVATION  TIME  IN  EPHEMERIS 
IF('  ST'-(4>-PASIEKA)RWlfRW2»RW2  5 

R,  1  RE-  IND  $ 

READ  TAPE  3f  (EPHEM(U)fw)=lfIXXX)* 

NTrtPE3='  TAPE3X-1  S 
LSTAn=l*ITSTAD=0  S 
PASIFKA=WST0(4)  $ 

0;  19-  J  =  LSTADfTfSS 
LSTAD  =J  * 

IF(DT)4TV2fCTV3fCTV3  S 
CTV3  IFC'  STO  (4)-EPHEM(vJ)  )203f  203f  198  S 
C1V2  IFCEPHc  (U)“WST0(4) )203f203f 198  S 
JF8  C0:''TINU‘-  ■?) 

IF  ( f'  TAR- 3-1 )  TSTER  r  X201  f  201  $ 

X,''m1  I— iviCNTrsLs 

2(il  DO  202  u=lf24S 

KK  =  iXifX  -  24  +  J  S 
202  XXXX(J)  =  EPHEV(KK)* 

READ  Tape  3f {EPHEM(J) ,U=1, I)  $ 
i\ITAPE3=  TAPE3-1  S 

itstad=itstad+t  $ 

LSTAD=IS 
60  70  ia5S 

*  OrtDERV^TION  TT'E  FOUNu 

203  IF(LSTAD-25)2..4f206f  2i;6S 

204  IF(ITRTAO)205f205f206  S 

205  J=3  S 

60  TO  F09S 

206  J=LST AD-24  $ 
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2.'  IF(J+4r-I  )  20c:»209»210  t 

21 "  J=u-16  ? 

2.  '■  oJ=J+2--  4 

C-O  ?n  -i»  -$ 

TI  TPCkIzXXXXCv-jIS 
^11  JJ  =  JJ  +  8« 

*  I  TERPCL8T-.  TO  GET  PA2«:-E1ERS  FN'  gPHE'  ERIS 
Ci.-LP  DO  212  =1.^4 

CF..  I(.0=1..;'KKI.=K$ 

DO  SI’!  -J=l»6$ 

TEi- :  =Ti  ■T^^  ('<K)-TIN’TP  ( JJ)S 
IF(“FF2)214f213»2145 

2it  CSD  I  (.<<)=CSUPI  (KK)*(WST0(4)-TIWTP(JJ)  ) 

/T£  P* 

21?  CO.^TIMD'4 

2.2  CO-TII''i'“:s 

FC  S  DO  215  !=lf7* 

C  5of^=i!.0eKK=K+JS 
DO  216 

CSUf>=CSl  V,+CSUBI  (JJ)*EFhElv'{KI<)$ 

216  KK  =  Kr>  +  8  S 

FJoFT(^)=CSL^’$ 

235  RKSrO  (  +4)  =  cSUF  5 
RK5T0(1)=^ST0(4 )S 

CALL  XTZSP  $  GET  X»Y»Z»  RELATED  PARAMETERS 
IF(’rPFb)B1969»B1969»  A1970  S 

P1669  WRITE  T'PE  tt  RKSTO(l)»  X(l>»  Y»  Zt  XDOTdlr  YOOT»  ZDOTS 
A  1^70  XNliZ=ZL''T  S 

A2nR=AF*AI?FSUPU=A2CR*ESItviES 
=  -U0)*(-3.0/2.0)« 

RSl.i^  A=  (i.'MU0>!<RSL.PU)+P4 
ROVA=R/ 5* 

RXi=(Aa: I-CCSEO)*A20R$ 

RY..=:(AY''  I-SIKE0)*A2CR$ 

USIIPU=RTESO*A20RS 

USUPA=uSUPU*UMlC* 

DE.vrN'=XLGR**2*RTESQ4 

TE.'^  P=  ( x:.GR*E  COSE  >*(-1,0)  -ESG+  (1.0)5 

UYiv=(Te  P/Di^NOI  )*ESINES 

UX.v=UY  ^AXrilS 

RO’./A=l.  ■•+ROVA$ 

UX-.v=UX..+ROVA*SlEEG$ 

UX. \=(  (-^YMI/XLGR)+UXN)*A2CR5 
UYi.i=UY.  *AYr.'I-RtVA*COSEOS 

UY. v  =  A2C  '*(  ( AXNi/XLGP)+L  YN)$ 

RHL  C^O , ^4 

D0237  iv  =  l,?S 

RHOX(K)=ivST.  (a+K)+X(K)  I 
217  RHOC  =  RHOC  +  c.hOX(K)**2$ 

RHOC=S.'T  (DHOOS 
DO  Mfi  =1,35 
XLX (K )=^  hOX (K )/RHGCS 
212  PFLTX(  )  =  V.STC(K  +  33)  »  XLX(K)S 
IF(TPFG)  A44»  /.44>  f219  S 

*  i'.flTE  FAR-.  ETEF.S  FOR  STD  dEVIATIO(v  DETERMINATION 

A^uwRlTE  T  PE  11,  -KSTC(1 )  f  (RSUPA  ( I  )  ,  1  =  1 ,4 )  »  (USU8A  ( I )  ,  1=1 1.  4 )  , 
(l.X(I) ,T  =  l,3) , (VX(I) »I  =  3  »3) »R»COSI.SINI»SINU,COSU» 
(X(I),I=1,3),{  X(I),I=ir3)  $ 

*  i^'|•'■ROR“T  C-SER''AT10N  TYPE  AnC  CALL  COEFF  TO  CO'-’PUTE 

*  C' RRFCTIl  FOLATIOK  CCEFFICIE^TS. 

=  ^19  IFOS!  )  2?0,221,220  S 


E-6Z 


2?.1 

2?r 

YP2U 

X?20 


CkcKT 


219 

X157 


XI 56 
1?6 

158 


X160 
X161 
XI 62 

* 

* 

X163 


1011 


XPl 

1004 

1005 


752 

609 

P22 

CUi^BAC 

161 

P163 

A163 


CALL  Ci.'^FF(\LX»I»X,'',PE«)5 
GO  TO  ( 161  fBA;.OB»C  '  ITl) » I  % 

IF(US1  >2)  Y22o.Y22''*221S 
SEi'-fE  LIGHT  35 
DO(>22»  )I  =  1*3  5 
ARAY(I)=ftSTC(7+I)  $ 

CALL  CGEFF(ARAY»I»X^PE6)5 
GO  TO(l=OtBADOe,OVITl) ,IS 
STAPT  TAC  $ 

TJiJ  P22S 

END  TAC  5 
DO  219  I  =  1»7S 
All  (I)  =  &LSQX( 1)5 
IF«TPFG)X156#X157»X1565 

TPFP  =  5.05  FIRST  TIVE  HERE  -  PUT  END  SENTINELS  ON  TAPE  6»11 
WRITE  TAPE  6»  HEND»  X(l)»  Yr  Z»  )(D0T{1)»  YOOT»  ZDOTS 

REWIND  6  $ 

WRITE  TAPE  ll.hEND#  (STARCd)  »I=1»25)S 
REWIND  11  5 

DO  156  I  =  1»6  $ 

DLTAAd)  =  AIKDS 
DO  158  I=l»185 
CHED(I)  =  CHE03(I)  $ 

CALL  HEAD  (IPGCNT)  5 
IPGCNT=IPGCHT+1$ 

LInE=6  ? 

IF(RCNT)  X161»X161»X160  5 

SUi^ll  =  SGRTCSOM/RCNTIS  CON'PUTE  ROOT  KEAN  SQUARES  OF  RESIDUALS 
IF(RCNT2)  X163»X163»)<162  5 
SUK21=S0RT(SUM2/RCNT2)  5 
OUTPUT  CASE*SU^ »DLTAA»0UTAP»  SEE  PAGE  615 
5 

WRITE  OUTPUT  TAPE  5 f 1011 » ITIMESr IRPT rSUNll »SUM21 f 
(DLTAAd)  »I=1»6)5 

F0KKAT(2H10»Il»2X»IlfF12.2»F12,8»6F15.8/2H70)$ 

IFdASI2E)XPlfP22»XPl$ 

WRITE  OUTPUT  TAPE  5»  10045 
FORf'ATCHlHlOSUGGESTED  CHANGE  IN  )$ 

WRITE  OUTPUT  TAPE  5»  10055 
F0RKAT(2H10f liX.agKCOCRDINATES  OF  DATUW  -  M£TERS)S 
L=LSTCI\T  S 
U=75 

DO  009  K  =  IflASIZE  $ 

QLK(U)=OLSQX(J)*XMPFRS 
QLM ( J+1 ) ZQLSOX ( J+1 ) ♦XMPERS 
QLM  ( J+2 )  =QLSQX  (  J+2)  #)<MPERS 

WRITE  OLTPUT  TAPE  5 >752 » IDBUF ( K ) » QLK ( J) »qLM ( J+1 ) » QLM ( J+2 )$ 
FORKAT{2H10f26XrI3r4)(flOHDELTA  X  =  f  F13.4t4X » lOHDELTA  Y  =  t 
F13.4»4X.10HDELTA  Z  =  »F13.4)$ 

J  =  J  +  3  5 
START  TAC  $ 

JMP  (P)$ 

END  TAC$ 

IF( (ABb(SUMl-GATEl)+ABS(SUK21-GATE2) )+0MCNT*(0MCNT-6mCT2) ) 

161 f  CLACOf  161  5 
0MCT2=0  'CNTCOMCNT=0 . 05 

GATFl  =  SUN.ll  *  )(1STSG  $  RESET  GATES  FOR  ACCEPTANCE  OF  RESIDUALS 

GATE2  =  SUM21  *  XISTSG  5 

IF(GATEl)A163»ei63r A163S 

GATFl  =  SUMll  5 

IF(GATE2)162»C163fl62S 
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t\b7>  GAT'?  =  5IJI-21  5. 

Ir-v  tFL.'G  =  0,0  $ 

IF  (SE  LIGHT  3  I-  164  S  TU^i'  OFF  SE' SE  LIGHT  3 

1.  ■'  ITI  ES='^TI.-2S-*i? 

IF  (ITI  ES)  CL 'CO.  CLA'-O.  0?JBC0  S  SHE'LL  WE  DO  ANOTHER  PASS 
GO  TO  INT  -f 

Cl /.CO  XLu;rXL^+DLTLOf;r^  XW=AXN+..LTAX  S 
AY'srAY  .+i;LTAYS 
A=(lLT.aA+1.  )*,  (2)$ 

xhio  F=.  .TNn+xNOPECa)  ? 

TE  -  =X1  CL+.'  LTIKS 
If-'-  IF(TFHP)  166.167.i67S 

lr6  TE..i:=TE  P+PI$ 

GO  TO  1«.BS 
1h7  XInCL-T'WPS 

COSIrCf-S  (T/itv<P)S 
WZ=COSi»' 

XLO  =  .0-0  -(■  DLTND*SI6NH  (l.OrWZ)  S 
170  RKSTO(5)=XLOS 

SI.'.I=SIY  (XInCDS 
COSO=COS(XNODE(1) )$ 

5l60=Slr/(XN0DE(l)  )$ 

WX=SINI*SINCS 

WY=(»C0S0*SINI)$ 

ESO=AXi  ♦*2+AYN**2$ 

P=(3  .0-'TS6)*A$ 

RTP=SQkT  (P)5,  P 

UO  371  Tdl,?  S 

171  HXd)  =  WX(I)  *  RTF  (J  HXI(I)  =  HX(I)S 
AXI=-CijS1*AYN*SINO+COSO*AXN  $ 

AYI=(Sr  0*A>.N+C0SI*AYN>KC0S0)$ 

AZIrAY  ^-SINlS 

¥ 

X1m=A*aAXS  s 

X2ArF.0RT(ES./)  *  ECCE^TRICITY 

X3A=Xli'C.L*RADY;v  $  INCLINATION 

X3fl=XW0  E ( 1 ) *RADYNS 
X?6=ATA-  (AYN/AaN(1) )  S 
IF(AXN(1 ) )X1X. aPX.XPX  S 
XIX  X2-i=X26+PIS 

X^V,  IF(X?B)  ^3X.'<4X.X4X  $ 

X*X  X?n=X2)-.+TWuPI  -t, 

Xuy  X?H=X2tt*RAC,YN  S 

X16={XL'»RALYN)-X?B-X3H  $  NEAN  ANOVALY 
X1C  IF(Xie) '/2C.V3C.X3C  $ 

X?C  XI  A=X1, ‘-1.360.  * 

GO  TO  a’C  S 

X.-C  WRITE  V.I  TPUT  T«PE  5»X«C  T 

XhO  for  -  ATI 'H70//f 4X.4hAXlS.9X.EHECCENr6X»EHlNCLN.flX.9HN'EAN  AN0M,3X» 

BHrt  ’G  P^:rG.SX.7HPA  'OCDS 

WRITE  ‘ITPUT  TuPE  b»X5CfXlA.X2A.X3A.XlR.X?B.X3B  S 
Xcr  for  ATi5H10rlX.Fin,S.3ArF9.P»2X.4(F12.Sif  1X)//)$ 

CALL  XYT'5F5. 

« 

♦PRINT  UT  CHEi.‘  .CASE.LO.X.THRu  X(6)S 

*  S 

P‘  ‘NT-  WRITE  i'  TPUT  Tape  5.X6C  $ 

xvr  FORvak Thl0.3X.7HL  SUP  C » EX » 3H AXN » 9X . 3HAYN . . 2HHX . 1 OX . 2HHY » lOX » 
2Hn/)  ' 

wPITE  .,1  TPUT  T‘.PE  R  .  X7i, . XLO  .  AX^  .HX  S 

Xm  F0">  AT('Hl0f6F.i2.P)  ? 
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Cu^lO  OTPT=n.  S 

WRITP  i  TPUT  T/ PE  S 

X,  <:  fox'  AT(?Hiy,i4Xi4HTI- E».ilX#lEX»llX»lPY»51X»lKZ»PX»5HX  D0T»7Xi 

5HY  nCT»7X.'=^.HZ  r‘OT)5 

WRITE  output  T^-PE  5  pXPv - OTPT  ( 1 )  »  (X  ( I )  »  1=1  * 3)  »  (XDOT  (  I  )'»  1=1 » 3) S 
X4C  FOR'  AT(.’H10»7FlP.fi)  f 

*  5 

*  * 

TSTRF  00  3  72  ■=1»'-;S 

172  XISTSGCT)  =  X1STSG(I+1)  ? 

IFC  C0c:i(3)  )Glu0»Q2»Q100S 
Q>  IF(IASi"E)G3,QinOr'-)3$ 

Q3  REwjCwn  9  S 

REV- 1  NO  14  £ 

WRITE  ul'TPUT  Tape  5»Q30S 

031'.  FOR’'AT(?H70*44hNEVi/  POSITIONS  FOR  STATIONS  IN'  NON=ZERO  QATUM/)S 
WRITE  OUTPUT  TAPE  5»G31£ 

Q31  F0RiVAT(?H10»4H  STA»6X»eHLATITUDE»9X»9HL0NGITUDEp6X» 

8HELEV-TS)  $ 

D0(G4)I  =  1,IASI/.E  $ 

D0(P4)ij=l»3  $ 

II=6+3*(I-1)+U  5 

G4  DELT(J»I)=GLSQ'X(II)$ 

II=F  S 

DO(G  A)  I  =  l»ISTCivT  $ 

STAPK=STAPC(II)  $ 

J=IAXD  $ 

IF(J)S5fQ6pQ5  $ 

05  PHIRD=STARC(II-3)  $ 

XLAr  BA=ST/ARC(II-2)S 
0ALT=STARC(II-1)  S 
SINPH=SIN(PHIRG)  $ 

TENP= ( 1 . 0-SlNPh**2*EPSQD ) $ 

CAPCsl.O/SQRTITEMP)  S 
CAP?=CAPC*(1.0-EPSQD)  I 
CAP7=(CAPS+0ALT)*SINPP-DELT(3pJ)* 

C0SPH=CC S(PHIRO)  $ 

XOVCT=  ( ALT+CAPC )  ♦CCSPhS 
COSTH=COS(XLAMEA)  $ 

SIimTH=SIN(XLAMBA)  $ 

CAPX=XO'''CT*COSTH-DELT(i»U)  $ 

CAPY=X0VCT*SINTH-DELT(2» J)  $ 

TE>r  =SOPT  ( C  APX*‘>2+C  APY’t'^E )  $ 

TEN.P=CAPZ/TEMP  $ 

STA9C(II-3)=ATAN(TEi''P»1.006fil4755>$ 

STAPC (IT-2) =ATaN ( CAPY/CAPX ) S 
IF(CAPX (1) )QQltQ02»GG2  $ 

GC.l  STARC(II-2)=STARC{II-2)+PI  5 

GivP  CONTINU-  * 

TENP=1.T/(1.0+TEWP**2)  S 
TEN'P=SGPT  ( 1 . 0-.  00676865PO*TENP )  S 

STARC(II-1)=£GPT(CAPX**2+CAPY**2+CAPZ*»2)-.996609924/TEPP$ 
PHIRn=Sf  ARC  (H-3)/C0NV  S 
XLA,'-BA=STARC(II-2)/C0NV  s 
XLAV.PA=-XLAVBA  $ 

0ALT=STARC(II-1)*XN.PER  S 

WRITE  OUTPUT  TAPE  5»Q32 fSTARC  ( 1 1-4 )  » PHIRDr ){LAMBA »OALT$ 

032  FOR:-  AT(?HiOtW4»2(4X»F13.8)  »4X»FR.2///)S 

WRITE  OUTPUT  TAPE  5»Q32 A t CAPX ( 1 ) »CAPY » CAPZS 
Q32A  FORf AT(2H10»10X»3HX=  »Fll,8f6X»3HY=  »F11.8»6X»3HZ=  »F11.8)S 

06  II  =  n+9  S 
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D0(r7)  v=l»lOBCr)T  $ 

TA^E  Sf  (if.STO(I)  ►I  =  l»16)  »ASI61»IAX-»SPHA, 

CPr,  ,Sl  L.CCnEL»CLiV»SL-  »IPM;TH.EQ(?  ? 

IF(  rAX..^GiP.?7»-i°  S 

07  WRITE  TPE  14  .  ( ".STO  ( I )  » 1  =  1  *  J  6)  »  ASIG3  » I AXD  fSPHA. 

CP.-.-  »Su.  LrCCDELfCLi'.rSL  -  »IPMiTH»EQO  ? 

RE-.IKE  9  S. 

RF.ir.n  14* 

D0(  9)  >.=1 »  lOBCi  T  S 

REA-  TArEl«» (wSTO< 1) .1=1 » 16) .ASIGl . lAXP.SPHA. 

CPnO .SC'L.CCDEL.COSTh.SINTH.IBMUTHfESO* 

Qc  WRITE  T  PE  9.  {';STO{I)  .1=1.16)  .ASIGl.IAXP.SPHA.CPHA.SDEL.CCDEL. 

COBTH.SlNTh.IBi  UTH.EQG  S 
RE-Iiv-C  9  * 

GO  70  0100  * 

0.-  11=3  S 

DO(OIO)  '  =  1.  ISTC.O'T  * 

IF( -510(2) )E(STARC(II) ) .GO  TO  012  * 

Oil.  11  =  11+9  S 

Oil  WRITE  C'TPliT  T'aPE  5. 01:^5 

Oi?  FOR  AT(?H10.17hSTATTON'  NOT  FOUND)* 

STA  T  T-'C  * 

RUNOUT  * 

J^':PL  5  * 

ENPTAC  * 

Oi;-  PHI.''-n=STARC(II  +  l) 

XLA!--pA=5TARC(n+2)  S 
OAl.T=ST-RC(II+?)  * 

SIiv-EHrSTNCPHIR.^)  * 

COSPH=C!'S(PHIRi  )  * 

TE.v.F=l.  i-sii.'PH»*2*EPSG.  S 
CAhC=1. '/SORT (TEMP)  * 

CAP'-.zCAPC+d.O-EPSQD)  $ 

CAP?=-<CAPS+0ALT)*5lNP-i$ 

XMnI'TS=  .'510(4)  * 

XOvr.T=-(OALT+CAPC)*COSPH* 

XLM''TH=ThGR.'.+XLAMBA  * 

THTAzXi'  UTS+RPTIM+XLMPTH+EQG  S 
COSTP=C  -SdKTA)? 

5I>dH=STN(THTA)* 

CAPX=X‘/  CT*COSTK  * 

CAPYzXU  'CT+SINTN  S 
CLiV;=C05(THTA-X(_AMBA)  * 

5Lf--.=SIi  (THTA-X'-AMBA)  S 
W5Tr(5)=CAPX(l)  * 
a'5T- (6)=CAPY  5- 
w5Tv'(7)=CAP7 

ST4I'E=.'5T0(‘')* 

IF(IAXr-?)ii-i.4».;15fG14  * 
w5T  {r.1---CAd+.P5Bf^?447  * 

w5T'  (9)-:CAp>'*, 1,666.^447  S 
60  Tf,  5 

Gti  IF(TAXr.-2)ul6».  7.016  S- 

Oi*-  IF(  lAXr.  ;wWfw7.017  S 

Gd  ASli  .7=1.  >A;"/-5UxT=SP'-A  S 

XL--'  EH==nFL'=nSi.  ZT=CCnE,-  s 
XLSi  XH=((;SUZT*  ,5UYT)*(-1.0)* 

XLSi  Yh=  SUXTWDSL'ZT 
A5,  v  T='  .9- 

OS'  1T=.\  51  /;■  *(--SLxT) 

.jS;  ■  T=..  51 'Z  +A.-PYT  7 
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i 


I 


tsi. 

x  =  - 

-  IRT  f'  E>i  .■8Y=CrSTi- iESi  '^2=0,,$ 

zs 

'  /=  - 

..Fr  ( 1 ) 

ss. 

,  Y=- 

SL..  ■■  *EM  h:-.  t 

SS'. 

,  x=,- 

=  1!P2*FS.  -Y  « 

ss. 

■  -  7=- 

'uSP 

ZSi''Y=^,‘-UP2*E.5i'-X  't, 

ZSu  ■X=-=;SUr.2*Ebi  .'RYS 
D0(  20)  1=1 »3  S 

IA=I+7. 10=1  +  10  ■.IL=I  +  1?  5 

ftRT'-  (  II.  1  =XL'-.UYr-*ESU;-X  (  i  )  +XL?UXr*SSU-=X  ( I ) +XL?UZH*ZSUBX  ( I  )$ 

WST.  ( I A  )  =ASi.  XT+SSU.  -X  ( I )  +ASUYT+E  SUeX  ( I )  +ASUZT*ZSUBX  { I )  S 
.  i/ST  ( I..  )  =r'Si.XT*cSUBX  ( I )  +n«:UYT*EF.UI?X  ( I )  +0SliZT*ZSUBX  ( I )  * 

GO  TO  -~i 

■ir'O  EFL'-G  =  O.S  " 

IF( IRPT)R173»ei73»174  S 
1.7'  IRP1=IhPT-1T 

IF  (SEi.FE  LIGHT  1)  SEC?»  SEC3  S  60  00  ANOTHER  CO.RRECTION 
♦START  A  M-  Pa'-'E  A'.D  print  SIC-f-'AS 
R.)  73  WRITE  -I’  .TPUT  TAPE  5»  ILOGS 

li  Ob  FO-''AT(RHlU»21.'»10hSlGi-AS  FOR  r  3X  »  9HPEL  TA  A/A  6X  ►9HDELTA  .AXNf6Xj 
GHwrLTA  Ativ»6X»AHD£LTA  U0»7X»  IO'HDELTA  N0DE»FX>7HDELtA  I)$ 

WRITE  wi  'TPUT  TAPE  5»  lii07.  (EDI AS  ( I )  » 1  =  1  f  6 ) S 
ir.f'7  FOA  AT(2HlU»29X»6FiE.S)5 
*Pt-'lvT  'UT  ciGi-  JS  FOR  POSITIONAL  ERRORS 
IF(  lASi  ■''E)P10»P50»P10  $ 

P:h  WRITF  OUTPUT  Tape  S»  1U08S 

If'OP  FOrtUAT  (34H105ieMAS  POSITION  ERROR  OF  DATUM  )$ 

L=LSTCnT  S 
J=7$ 

00  7F3  ■  =  IflASIZE  * 

6niAS(v)=RClAS(J)*X--'PEK  $ 

8DIAS(o+l)=eDlMS(J+l)*XMPER  $ 

BriAS(0+2>=5DlAS(J+2)*'(MPER  $ 

PI'-  WRITE  o'iTPUT  Tape  5f  1009»  IDFUF  (K  )  ►BPIAS  (  J)  oBDIAS  (  J+1  )  fROIASI  J'+'Z} 

<3; 

ir.09  FORi  AT(2Hinf26X»I3f4X»10HSIPNA  X  =»3X>F13s?»4X»lDHSIGyA  'Y  =»3X 
»Fl?.2.4X»10HSIOMA  Z  =r3X»F13.2)  S 
7'  3  J  =  o  +  3  S 

P-.’lPi-,CNT=IPGCNT+l  $ 

RE  INP  .11  S 
XFLAG=u  -T 

S  2  REa.  Tm'E  ll,RKST0(l)r(RSUBA(I)»I=lf4)»(USUPA(I)fI=l»4)»(UX(I)»I 
=1»") » (  XCI) »I=1»3) »R»CCSIfSINI.SIMJfCOSUf (X(I) »I=lf3) » 

( V  X  ( I )  ,»  T  =  1,3)  $ 

IF(  KSY'  (1))  E  (HE.'P),  PO  TO  173  S 
*F...;|.'  Tl-e  A  VECTORS  FOR  X,Y,Z 
00  •’P9  '  =  1  ,3S 

7'^9  A\/EC(i)  =  UXd)  ♦  RSUEU+VX(I)  *  USUBU  $ 

XVEC (1)=AVEC (1)TYVEC(1)=AVEC(2)PZVEC{1)=AVEC (3)  !5 
00  7bO  '=l,3f 

7r  AVi-C(I)  =  UX(I)  ♦  RSUBA  +  VX(I)  ♦  USUBA  $ 

XVEC ( 2 ) =AVEC ( 1 ) 7YVEC ( 2 ) =AVEC ( 2 ) FZVEC (2 ) =AVEC (3)  S 
00  7F1  =J ,3$ 

70  1  A'FCC)  =  UX(I)  *  PX.  +  VX(I)  ♦  UXN  $ 

XVEC (3)=AWEC (1)OYvEC(3)=AVEC(2)CZVEC(3)=AVE0(3)  * 

DO  782  ‘:  =  1,3$ 

7  '2  AV--r(I)  =  uxd)  *  RYX  +  VXd)  »  UYN5 

XVFC(4)=AVEC  d)  ~YV£C(4)=AVEC(2)FZVEC{4)=AVEC(3)  $ 

00  783  1=1,3$ 

783  AVFCd)  =  VXd)  *  Xd)*COSI  -  WX{I)*X{I)  ♦COSU*SINI  S 
XVEC(5)=A\/ECd)'?YVEC(5)=AVEC(2)®ZVEC(5)=AVEC(3)  $ 
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l)0  7^4  T  =  1  ,3s 

7-4  AwECd)  -  X(.l)  *  X(I)  ♦  SINU  ? 

XV-'  (f) -aVE-  (l)'^Y'/tC(f)=AVEr(?);;ZViiC{f,)=AVE':(3)  S 
♦  SP"  ■  AT-  ‘C!^S  X,^,Z 

ST.4  T  T  C  S 

SA--:  FN',V  U.''C,F,v/4WU.FMAN-.'. +1  S 


TV^>  ACWC  S 

T'l/.  AOkV  S 

jMP  TPP.TRP  $ 

TMh  AD«C  5 

Tv.v  ArR'i'  $ 

JN'P  TRP.TRf  S 

TV'A  Ar=KC  S 

TN'<  APR  7  $ 

JV.p  TPP.TPh  S 


*Ti.  |vU:.'iIPLY  3  ATkiCES 
A  FMa’U  AnRCC(?MrRlXvACK2XS 

A  FMA  U  AnRCC(^■MDR3X'7ADR4XS 

A  FMA'VU  ADRCCfJAORlYCACKZYS 

A  F^^AV|J  ADRCC(rAnR3YPACR4YS 

A  FMA-U  AORCCGAPRIZFADKZZS 

A  FMa^'U  ADRCCf3AnR32CACR4ZS 


JMP  GOO!  s 

AiTC  C/HLT»F*C/hLTf 1  S 

Ai,.-X  C/HlT»aVEC4C/HLT»XTVEC  $ 
Ai  ■  Y  C/pLT,  Y'/ECRC/HLT»YTVEC  S 
Ai,‘-Z  C/hLT»Z''ECRC/HLT»ZTVEC  * 
Ai^CC  C/HLTLdi:C/HLTL,6  $ 

AI  '  IX  C/>-LTL»‘'raC/^LTL,XTVPC  S 
AiV  lY  C/HLTL»'RI?C/rLTL,YTVFC  $ 
Ai. .  IZ  C/HtTL»  ■•riC/:-LTL»ZTVEC  S 


Ar;''2X  C/hLTL»CVERT(2C/HLTL»CXVERT  * 

A.^EZY  C/HLTL»''VEKT^^C/HLTL»CYVERT  $ 

Ar,‘>2Z  C/HLTL*CVERTf7C/NLTLf  CZVERT  5 
A,  -SX  C/:-.LTLdr*C/FLTL,CXVERT  S 
A,  3Y  C/rLTLf’i7C/HLTLfCYVERT  $ 

A,  I  3Z  C/hLTL»1i.-C/HLTL»C2VERT  $ 

Ai  4X  C/t-LTLr  VEC  aC/PLTL»VCX  $ 

A,  4Y  C/kLTLi  VEC'-.C/nLTLfYCY  S 
Al  '47  C/rnLTL»?VEC'^C/pLTL,ZC?  $ 

EH'  TAC 

♦Fi  :.LO-..tnG  the  F.VAiV.ij  ROUTINES 
Gcru  AXSIG=S  RT(XCX)»X(/PER  5 
AYSIG=S'RT(YCY)*Xf'.--PER  $ 

A7SIG=5  RT(/:C2)*X!^PRR  $ 

DO  ‘7FF  1  =  1,. les 
7Ab  ChEDd)  =  ChEU5(I)S 
IFC'FLa -)766»7P7,766$ 

7A7XFLAG=1  '• 

LIpC=6'|  $ 

7A6lF(LINC'54)7G9.769r76e$ 

7-=CALL  HE-Dd'GC  .T)$ 

LI‘'.C=5  ->  IP6C  T=lPGC;vT+l  S 
7Aci.I,,C=Li  C+IS 

*PpTKT  SATcLLIT'-"  FCSITION  SIGRaS 

\a4V  write  ill TPUTTAPE  5»Z227*RKST0(1) I (X(I) f I=1»3) »AXSIGrAYSI6»AZSl6$ 
1010  FOR  AT(7H10»7F1=!.8)S 
60  TO  S-2S 

17.’  IF(CNT.  ■{in))1.75»STAPTrl75S 

17.'^  TE-P=C'\TwDdO)*(-.2*=r6F44e)-TH6Ff360.0s 

X-,"F,  IF(’'E*'P)l7c-fi77,177S 
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17F 

TE  =Tr 

P  +  36'  .05 

GO  T.7  . 

•  7A  T 

17‘ 

TF  -  =-( 

■■-'*F-36  .Os. 

WRITE  .. 

.TPO  T  'E  bjXFyNHltr.X- 

5 

X1-.  ivH!  F0«  AT(^H7iJ/2Hin,3fi'',?ir(-«FSTART  IMFCRVATION  /2H1 0/2H10  *  ?5X  »  1  HD» 
■.4Xr  lFW/2Hli)»22x»2Elf  .iA/2HlG)  $ 

WRITF  ci  TPUT  T^'OE  5»VPUNH2»  XLO»  AX^  f  PX»  HY»  HZ,  S 

Fn^  AT(  JHlU»24>>»2HuO»llXt3hAXM»llX»?HAYN).llX»2HHXrl2X»2HKYrl2Xf 
2'-^HZ/2H10»15X»6El'=^.6)  $ 

WRITE  'TPUT  TAPE  5rXPUNH3»CMWD{5)  $ 

XPiisHX  FOk  AT(2Hl(j/2H10»50X»gKEPCCH  DAY/2hlO »  BIX »  A4  )  * 

G"  TO  FTARTS 

Si.  ER  WRITE  t'.l'TPUT  TAPE  5»  SOPERa  S 
Su'  ERP  FOR  AT  (2Flf;/lt  HIOSUPROUTInE  ERROR  >  S 
STh.-T  T  >C  S 
RUiTUT  % 

JMPL  2  % 

Ri^ER  TIWA  C/hLTn;:<8CDaiIC/HLT»45 

JMPL  ft? 

RU'-'GUT  S 

JMPL  3<F  '  "  . 

RK-CDP  A/ERROR  IN  ^UNGE  KUTTA  ROUTINES 
NnSTA  TMA  C/HLT'-NSBCD'?  C/HLT»4$ 

JMPL  65 
ENF.  TAC  S 
60T0STA~T  5 
sta;-ttac  $ 

NS>-CD  A/Ei  n  OF  STATION  DATA  CARDS  5 
EhRCB  TMA  C/HLT»OBBCDP  C/HLTr4$ 

JMPL  65 
JMP  START  5 

OrPCD  A/ERROR  IN  TAN  A  DIVIDING  0  BY  0$ 

.•XERP  TMa  C/HLTh‘XBCOF  C/HLT»3S 

JMPL  65 
RUNOUT  $ 

JkOL  35 

MX-^CD  A/CANNOT  SOLVE  MATRIXS 
RLAB4  TMa  C/hLT.PLAB3!^  C/HLT»E$ 

JM'^L  65 

JMP  X13'J  5 

PLAB3  A/STATI  'N  NUMBER  NOT  FOU.'DS 

STARS  A/***#^***5****  5 

LU.v-CP  A/AC, OF  UNKNOWNS  EXCEEuS  NO. OF  OBSERVATIONSS 


TSTER 

TMA 

C/hLT»TSTER3K  C/KLT»4S 

JMPL 

65 

Flh-'IR 

RU'^-OUT 

5 

JMPL 

25 

TSTER X 

A/ECROK 

IN  TESTING 

TIM-  POI'TSS 

Cl  EDI 

A/ 

TI-E 

LATITULF 

LONGITUDE  $ 

A/ 

ALTiTL'E- 

K  - ’ 

5 

CpFDP 

A/ 

TIME 

X 

Y 

1 

y-DCT 

Y-DOT 

Z-nOT  5 

Cr- -1j3 

A/C>SF 

SL.N-. 

slmp-kv/sfo 

DELTA  A/A 

DELTA  AXN 

UELT«  AY 

N  DELTA  UO 

delta  NODE 

DEILTA  I 

C‘  ‘  DA 

A/:  -SE 

L 

AXN 

FX 

HY 

HZ  $ 

C^-L.5 

A/SlGf 

A-POSITiON 

T  1  ?'E 

X 

Y 

'f 

SIG  X(M) 

SIP  Y(M) 

SIG  Z(M)* 

OCF'En 

a/sta 

time  -  Mir-  RANGE  RANGE  RATE  R 

T  ASCE 

CECLIN 

AZIMUTH 

ALTITUDE 

E-69 


s 

0^-ShQ  A/'^AT  STA  tint  RHO  RES-y  P  A  RES-y  DEC  RES 

-  ...  A7  RESin-  M  EL  PESir-  V  ROOT  RES-KW/S  5 
Ht-  Li  A/r  D  S 

♦TL^i’LE  -.'.r  .lAYS  "lv‘  Y":aR  (note  This  table  is  REVERSED)* 

PAOI  S 

*LNAST  SQUARES  SUEhOUTI.'.E  » 


♦ 

*  CHbNVf  SET?  THE  LEAST  SCJUARES  ROUTINE  EOR  VATRIX  SIZE  N 

*  LnTEP  WITH  .■  TlS  IN  « 

*  SETS  UP  THc  FOLLOWING  PAR AfTTERS  - 

*  C'^UNTl.  NTi' 

*  C^.UNTR  NT3'3 

♦CulNTLR  NT1?QNT?S 

*  LSQPi  C/rLTLrTERN.S+NfiC/jy.P»LSGMULT 

*  L?SP?  C/HLTL»QLS&A+N*t:N+l)C  C/JMP.LSQLOCZ 

*  LSQP.^  C/r.i,TL»'2LSQP+Na  C/HLTL»(5LSQA+N 

♦LSC-^SPl  NTIS 


*  LSQP? 

(N=1)T15 

*  LS(5SP.T 

NTir>flNT39 

»  LSQDN 

C/T''M»D.2aC/AIXCLnX»2  - 

a,  . 

1- o>jir  '  ” 

(N+1)T15®  (N+1)T39 

CHGNXN 

TJ.'-. 

chgnxnxs 

TAi- 

COUUTLS 

SRn 

245 

TDM 

COU.MTRS, 

AO 

S 

TAM 

COUNTER* 

TMA 

C/HLTL » TERMSffC/UMP , LSQMULT* 

AM 

COUNTL5. 

TAv. 

LSQPIS 

TMQ 

COUNTR* 

SRw 

fiS 

MM 

COUNTLS 

TQa 

$ 

AM 

COUNTLS 

AM 

C/HLTL »0LSGAeC/JMP.LSQL0D25 

TAV, 

LSGP2S 

TMA 

C/hLTL  f  QLSQBQC/ JMP , LSQLOCS 

AM 

COUNTL* 

TAi-a 

LSQF3$ 

TMA 

C/,HLTR»GLSQAaC/HLTLfGLSQAS 

AM 

COUETRS 

TAM. 

LSQP4$ 

TMA 

COUNTLfi 

TDM 

LSQSPIS 

SM 

C/hLTL» 1$ 

TAi.'. 

LSQPSS 

TVti 

COU.- TLRS 

tom; 

LSQSP3? 

TMA 

C/TLM»C»20C/AIXOLrO>2$ 

AM 

COLTTR* 

TA.v 

LSQCNS 

tma 

C/hLTL »1BC/HLTLp 15 

AM 

COUNTERS 

TAv 

LSQ°6$ 

Chi'NXNXjyP 

0* 

LS.' 

TMU 

C/hLTL»PBC/NLTR»QL5CA$ 

TDX 

•C  ,15 

TM., 

F/05 

RP  r 

HOC!:-. 

PROGRAM  INSTRUCTION 
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TO  O.IS 

LS  hX-CJ^K  Fillers 

LS-  F  TV'  LSf'-V'.C'- 

TD-  LSG  Pl'f 

TIo  0« 

TJ-  LS<i^DD< 

TFl)  C/hLTR»(3LSQAs 

TDXLC  »l5i 

LF-^LOiFTMi^  L?GhPlSb 

TDXLC  »?$ 

TN’G  0»2S 

LS>'F.ULTFf/vR  0,2$  BUILD  A 

FAWS  0,1$ 

TMu  LSGPIS 

AIXJ  1,2$ 

INCAL  LSG''P1$ 

INCA  LSQADDS 

LLS'^TM-’  Tl^n  LSaP2$ 

LS'-'AD'y  AIXJ  0,1$ 

TMD  C/hLTR , TERWSCC/hLTL , GLSSBS 

TDXLC  ,1$ 

TDXRC  ,?SG 

TM'J  0,23 

LSC-.LOC  FM?<i^  0,li  BUILD  B 

FA.'.S  0,3$ 

TMP  LSQP3$ 

AIXJ  1,3$ 

JMP  LSQEXECS 

LS;-'S1  TJM  LSwSXS  FILL  IN  A  f^ATRIX 

TMi)  LSCP4$ 

TDiVl  LSQP4V$ 

TMO  LS0P5$ 

TDM  LSGP5V$ 

LSBRLCDTMn  LSQP4VS 

TDXLC  ,15 

TDXi’C  ,2$ 

TMD  LSGP5V$ 

TDxLC  ,3$ 

LS-^TRA  TMO  1,1$ 

lLSFDN  TDi“’  0,2$ 

AIXCL  2B,2  $ 

TMD  C/HLT,OGC/JM.P,LSQTRA$ 

SIXJ  1,3$ 

CA.^'  LSGP6$ 

AMS  LSQP4V$ 

CSm  C/HLTL,i$ 

AMS  LSGF5V$ 

JA2  LSGSXS 

JMP  LSGRLOu$ 

L5PS  TJM  LSCvSXS 

A  FMAIN  LSGSPlu  LSQSP2  $ 

END  TACt. 

♦CIAGO  AL  cLEMLi'TS  AND  ROOTS 
IP■^=LSTC^'T  5. 

IF(LMu  E)E(3) ,  IBG  =  6  $ 

IBAS=It-%**2  $ 

IB-il  =  lB-+l  3 

1=  1$ 

DO  774  K  =  1,  IBQS,  IBGl  $ 

1=1+1$ 

IF(LMODE)  NE(2),  60  TO  770  $ 
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IF  (1-6)  774.  774»  770  S 

770  8DIA6(I)=«LSQA{K)S 

BDIAS(I)  =  SeRT(OLSPA(K))«  SQRT(DIAG  ELE^'  OF  INVERSE  MATRIX  A) 
774  C!;NTI''UE  "5 

IF  (L;*''DE)  E  (?)»  GO  TO  MATM  S 
*RF-LOCATE  THE  fXf,  '  ATKIX  Ir  CvERT 
I  =  1  ^ 

DO  772  =  '.-,6  $ 

J  =  (M-U  *  LSTCNT  +  1  $  FORM  CVERT,- 

K  =  J  +  5  S 
00  771  L  =  .J»K  $ 

CVERT(I)  =  QLSGACL)  $ 

77  i  I  =  I'riS 
772  CONTIivi'lE  5 
START  TAGS 

A  i\-.ATM  FMAi^U  LSQSPSf. LSQ5P4CLSQSP5  S 

LSfv'SX  JVP  OS 

LSONPl  C/HLTL»TERNSiaC/HLTL»0$ 

LSOLWD  C/HLT»TERMSQC/hLtL»ri$ 

LSOPl  C/HLT»TERMSQC/JVP,LS8MULTS 
LS(3SP2  C/HLTL  f  RLSQACC/HLTL  » LSQBUFS 
LS0SP4  C/hLTL»lfaC/HLTL»QLS<3A$ 

LSRSPS  C/HLTL » w'LSGBffiC/HLTL  t  QLSQXS 


LSOBUF 

SET 

PAGES 

{P)+5Q  S 

AFEND 

40  S 

AFEND 

40$ 

NAwE 

BCD2BIN' 

EXIT 

JMP 

<P) 

PcnapiMJ'' 

EXIT 

TMQ 

0/77 

TA.'- 

BCDWORO 

ETA 

BCD'.-  ORD 

J80 

EXIT 

TAf'l 

TAO 

SRA(?  2 

AD 

SRaS  3 

EA  BCDttORC 

JQF  TADl 

JMP  EXIT 

PAGES 

*COr  VERT  EXP. DEC,  TO  FLT.  BINARY* 


AFEND 

40$ 

NAME 

FLTFLT 

Fl.TFLT  TJM 

FLTFLTX 

JMP 

INDEX 

TJM 

QCMTp  « 

CM 

MSIGN 

CM 

CSIGN 

CM 

DIGITS 

CM 

CNTDIG 

CM 

AOIG 

TMfi 

K8 

TDM 

AF 

TMP. 

K<5 

TD.v 

AD 

TG'V 

SAV 

SRA.- 

18 

TQM 

SAVl 

TA(i 

Li  -  ( 2 


I 


Ap 

AA 


LAP 


AZY 

LAf) 


AC 


T1X2 

0,5 

TIXZ 

0,5 

TIXZ 

0,4 

TIxZ 

0,6 

CA 

SLAG 

6 

TMn 

ENE 

JAP:^ 

AC 

JAZ 

AC 

TMD 

BLANK 

JAEr 

AC 

TWO 

PLUS 

JAEC 

AC 

TMD 

MINUS 

JAEC 

MIN 

TMD 

DEC 

JAED 

DECA 

SM 

Die 

JAP 

AC 

AM 

Die 

TMD 

K7 

TDM 

AF 

INCAR 

CNTDIG 

TAM 

DIG 

TMA 

DIGITS 

SLA 

2 

AM 

DIGITS 

SLA 

1 

AM 

DIG 

TAM 

DIGITS 

TMD 

K1 

AIXJ 

1,6 

TMQ 

SAVi 

TM!) 

K2 

AIXJ 

1,5 

TMA 

DCNTR  S 

TMD 

CNTDIG  $ 

JAZ 

{P)+2H  $ 

TDM 

ADIG  $ 

TMA 

CNTDIG 

SM 

AOIG 

SMS 

CNTDIG 

TMQ 

DIGITS 

CA 

SLA'?N 

12 

SLAM 

35 

AM 

D/47 

TAiv 

DIGITS 

FCAVS 

DIGITS 

TQA 

AM 

D/35 

FAMS 

DIGITS 

TMQ 

K4 

ETA 

SAV 

SRD 

6 

SR  A 

4 

AD 

SLA 

1 

TMQ 

K5 

EA 

SAV 

TMQ 

SAV 

EXP  IN  A 
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EXPT  39 


SLA 

8 

TAM 

SAV 

SR  a 

16 

JQO 

(P)+2H 

CSMS 

SAV 

TMA 

SAV 

AMS 

CNTCIG 

JAZ 

AM 

JAP 

{P)+3H 

1  - ; 

1 

CSIGN 

CSiv :s 

dntdig 

TMO 

CNTDIG 

TDXr>C 

*4 

TMA 

F/1. 

TMG 

F/10. 

aim 

FMA9 

TMD 

K6 

SIXJ 

1»4 

TA.v 

SAV 

TMA 

CSIGN 

JAZ 

(P)+5H 

TMA 

DIGITS 

FDA 

CAM 

V 

TQM 

DIGITS 

JMP 

(P)+3H 

TMQ 

SAV 

FMMCS 

DIGITS 

AN? 

TMA 

MSIGN 

JAZ 

(P)+2H 

FCSMS 

DIGITS 

TMA 

DIGITS 

JMP 

INDEXE 

FLTFLTXJMP 

(P) 

MIN 

TJm 

MSIGN 

JMP 

AC 

DECA 

TMU 

K3 

TDM 

AO 

CM 

DCNTR  S 

JMP 

AC 

INDEX 

TJM 

INDEXX 

TXOLC 

»1 

TXDRC 

t2 

TDM 

XIX 

TXDLC 

f3 

TXDPC 

»4 

TD.v. 

X2X 

TXDLC 

»5 

TXDRC 

»6 

TDM 

X3X 

INDEXX 

JMP 

(P) 

XIX 

S 

X2X 

$ 

X3X 

$ 

INPEXE 

TJM 

INDEXEX 

TMD 

XIX 

TDXL  C 

»1 

TOXwC 

r2 

TMR 

X2X 

TDXLC 

»3 

TDXRC 

»4 

TMU 

X3X 
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TDXLC  »5 
TOX.VC  1 6 
I,\‘'EXevjVP  (P) 

BLANK  0/ACT47 

Ki  C/AlTfS^C/JvPfAA 

K2  C/HLT»2-C/0.-P»AP 

C/INCAR»ADI6BC/N'0P 
K4  0/77C;OT47 

K5  0/77T47 

KA  C/HLT»0'?C/JMP»AN 

PLUS  O/20T47 

MIMUS  0/4DT47 

K7  C/NOP  »lj7C/TV:Df  BLANKS 

KA  C/JA2»AC0C/TMD» BLANK 

K9  C/TND>DEC«C/JAED»DECA 

DEC  0/33T47 

ENE  W/OOOOOOOE 

Die  0/12T47 

♦  FIXED  POINT  DEC.  TO  FLOATING  BINARYS 


AFEND 

4ns 

FXFLT 

TJM 

FXFLTX 

JMP 

INDEX 

CM 

MSIGN 

CM 

DIGITS 

CM 

ADIG 

TMO 

XI 

TOR 

BD 

TQM 

TAQ 

SAV 

TIXZ 

Ofl 

8B 

TIXZ 

0»2 

BA 

CA 

SLAQ 

6 

TWO 

BLANK 

JAEO 

BC 

TMD 

PLUS 

JAED 

6C 

TMD 

MINUS 

JAEO 

BMIN 

-80 

TMO 

DEC 

JAEO 

BDEC 

TAM 

DIG 

TMA 

DIGITS 

SLA 

?. 

AM 

DIGITS 

SLA 

1 

AM 

DIG 

TAiv. 

DIGITS 

ec 

TMO 

X3 

AIXJ 

1»2 

TMO 

SAV 

TMO 

X4 

AIXJ 

Ifl 

TMO 

CA 

DIGITS 

SLAON 

12 

SLAM 

35 

AM 

D/47 

TAV 

SAVl 

FCAMS 

TQA 

SAVl 

AM 

D/35 

FANS 

SAVl 

TMA 

ADIG 

JA? 

BR 

TDXNC 

>1 

TMA 

F/1. 

TMft 

F/IO. 

RN 

FMAP 

TMn 

X5 

SIXJ 

1,1 

TAM 

SAV 

TMA 

SAVl 

FDAS 

SAV 

BRl 

TMA 

MSIGN 

JA2 

{P>+2H 

FCSMS 

SAV 

TMA 

SAV 

JMP 

INDEXE 

FXFLTX 

* 

JMP 

(P) 

8R 

TMD 

SAVl 

TDM 

SAV 

JMP 

BRl 

LXl 

TMO 

DEC 

JAED 

BDEC 

X2  C/NOP»0 vC/INCARf ADIG 

X3  C/HLT»8l?C/JMP»BA 

X4  C/HLT»2QC/JMP»BB 

X5  C/HLT»0!?-C/JMP»BN 

BIVIN  TJN:  MSIGN 

JMP  8C 

BDEC  TMn  X2 

TDf«  8D 

JN!P  BC 

PAGfS 

AFEND  80S 

NAIv;£  TRPS 

LRESET  HLT  $ 

HUT  $ 

LTRP  TAG  $ 

NOP  TRANSS 

TDXLC  ,1XS 

TDXRC  ,2X$ 

TJN  EXITS 

TIJ  ►IXS 

TJV'  TRANSS 

TIJ  »2X$ 

TJ.''  TRAKS+IHS 
TQW  RESETS 

ADXL  *2X$ 

TIw  f2X$ 

TDXLC  rlXS 

TDXRC  »2X$ 

TJN.  TRPS 

RTRANS  RPTAA  S 

TWO  0»1XS 

TDM  1»2XS 

INCA  RESETS 

TDXL  »1X$ 

TMn  TRPS 

AIXJ  OrlXS 
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Exit  jmp  (P)? 

ENDSUB  S 

*  RUK5E  KUTTA  INTEGRATIOi'  ROUTINE 

NAN-E  RUNGES 

LEXIT  vJMP  {P)$ 

Error  jmp  (P)$ 

RUiVGE  TJ-'^  ERRORS  SET  ERROR  EXIT 

TXDLC  »3X5  SAVE  3X  THRU  OX 

TXDRC  ,4X$ 

TDPf  X3X4S 

TXOLC  ,5X$ 

TXDRC  »6X$ 

TDW  X5X6S 

TXDLC  »7X$ 

TXORC  »0X$ 

TDM  X7X0S 

*  SET  UP  INPUT  PARAMETERS 


LXSET  TAD  5 

TDXrC  ,1X$ 

TDXLC  ►2X$ 

TXORC  ,1X$ 

tJM  CTL$ 

TXOLC  »2X$ 

TJM  DERIS 

TJM  DER2S 

TJM  DER3S 

TJM  DER4$ 

TJM  DER5$ 

TQD  S 

TDXLC  rlXS 

TXDLC  »1X$ 

TJM  TESTMS 

TCXSC  flXS 

TXDL  »1X$ 

TJM  CXS 

TJM  EXS 

TCXZ  ,1X$ 

TXDL  flXS 

TJM  BXS 

TJM  IXS 

AIXCR  1»1XS 

TXDL  ,1X$ 

TJM  ADXPS 

TJM  BDXPS 

AIXCR  If IXS 

TXDL  flXS 

TJM  AXZS 

TJw  IXZS 

TJM.  BXZS 

TCXSC  rlXS 

TXDL  flXS 

TJM  HDXIS 

TJM  HDX2S 

TJM  HDX3$ 

TCXZ  »1X$ 

TXDL  flXS 

TJM  ADXS 

TJM  BDXS 

AIXCR  IflXS 

TXDL  flXS 

TJM  XSETS 


Gti  A  PARAMEiER 

SET  CONTROL  ENTRT 
SET  DERIV  ENTRIES 

GET  Q  PARAMETER 
SET  MODE  ADDRESS 
X  FL 

X  FX 

PREV  DELTA-X  FX 

X“ZERO  FX 

DELTA-X  FL 

DELTA-X  FX 

Y  FX 
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TQO 

S 

ADXR 

»1XS 

TXOL 

*1XS 

TMO 

FILLS 

TDXHC 

»1X$ 

rptn; 

9S 

TJM 

.1X$ 

tod 

s 

TDXR 

»1XS 

TCXS 

»iX$ 

TXDL 

»1XS 

tJW 

DNS 

TJN> 

ENS 

TJM 

FNS 

TCXZ 

»1X$ 

TXDL 

»1X$ 

TJM 

ALCOPS 

TJM 

CNS 

TOD 

S 

ADXR 

»1X$ 

TXDL 

»1X$ 

TJM 

A2NS 

TJM 

B2N$ 

TJM 

I2N$ 

TQO 

$ 

ADXR 

»1X$ 

TXDL 

»1X$ 

TJM 

B3N$ 

TJM 

D3N$ 

TJM 

E3N$ 

TJM 

GLOOPS 

TJM 

I3N$ 

TCXS 

►  IXS 

TXDL 

»1X$ 

TJM 

CLOOPS 

TJM 

DLOOPS 

TJM 

ELOOPS 

TJM 

F3N$ 

TJM 

H3N$ 

TQD 

S 

ADXR 

»1XS 

TXDL 

f  1X$ 

TJM 

H4N$ 

TCXZ 

»1X$ 

TXDL 

•  IXS 

TJM 

A4N$ 

TJM 

G4NS 

TQD 

c 

ADXP 

f  IXS 

TXDL 

»1X$ 

TJM 

A5N$ 

TJM 

B5N$ 

TJM 

I  LOOPS 

TCXS 

»1X$ 

TXDL 
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